
28.11.2013, 23:29
|
Новичок
|
|
Регистрация: 18.11.2013
Сообщения: 61
Версия Delphi: Delphi 7
Репутация: 10
|
|
Delphi IE
Здравствуйте!
Есть такой код:
Цитата:
Procedure EnableProxy(const Server: String);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Internet Settings',False);
Reg.WriteBool('ProxyEnable',True);
Reg.WriteString('ProxyServer',Server);
Reg.WriteString('ProxyOverride', '<local>');
Reg.CloseKey;
Reg.Free;
InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
InternetSetOption(0, INTERNET_OPTION_REFRESH, 0, 0);
end;
Procedure DisableProxy;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Internet Settings',False);
Reg.DeleteValue('ProxyServer');
Reg.DeleteValue('ProxyOverride');
Reg.WriteBool('ProxyEnable',False);
Reg.CloseKey;
Reg.Free;
InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);
end;
|
программа запускаеться без ошибок, данные в реестр добавляет, но прокси в ie не отображаеться( как решить ету проблему? почему ie не грузит настройки прокси из реестра, которые я добавил?
ОС: windows 7
Запускаю функции так:
Цитата:
EnableProxy('server ort');
|
|