Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.11.2013, 23:29
JeReK5542 JeReK5542 вне форума
Новичок
 
Регистрация: 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('serverort');

Цитата:
DisableProxy;
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 07:46.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025