void __fastcall TForm1::WBProgress(TObject *Sender, long Progress, long ProgressMax){pr1->MaxValue=ProgressMax;pr1->Progress=Progress;//--if(Progress==ProgressMax){//окончание загрузки
TRegistry *reg = new TRegistry(KEY_ALL_ACCESS);if (reg) { reg->RootKey = HKEY_CURRENT_USER ; reg->OpenKey("Software\\Microsoft\\Internet Explorer\\Main\\", true); reg->WriteString("Display Inline Images","no"); reg->CloseKey(); }
#define MESSAGE_HANDLER(msg, func) \ if(uMsg == msg) \ { \ bHandled = TRUE; \ lResult = func(uMsg, wParam, lParam, bHandled); \ if(bHandled) \ return TRUE; \ }
if (reg){reg->RootKey = HKEY_CURRENT_USER ;reg->OpenKey("Software\\Microsoft\\Internet Explorer\\Main\\", true);reg->WriteString("Display Inline Images","no");reg->WriteString("Play_Background_Sounds","no");reg->WriteString("Play_Animations","no");reg->WriteString("Disable Script Debugger","no");//vrode stavil chtobi scripts...reg->WriteString("Display Inline Videos","no");reg->DeleteKey( "Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\Cookies");}