Re[4]: Установка прокси для Opera, Chrome, Firefox и IE
От: DarkMaster Украина http://www.bdslib.at.ua
Дата: 21.08.10 07:14
Оценка:
Здравствуйте, LiaSoft, Вы писали:

LS>ДЛЯ ОСОБО ОДАРЕННЫХ:


Возможно прокатит для всех браузеров, не проверял, бо было не надо.

Uses UrlMon,...;

procedure WebSetProxyServer(NoProxy:boolean; ProxyServer:string);
var PIInfo : PInternetProxyInfo;
begin
  New(PIInfo);
  //  Тип доступа в интернет
  if NoProxy then PIInfo^.dwAccessType:=INTERNET_OPEN_TYPE_DIRECT  //  без прокси
  else PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;          //  через Proxy сервер
  PIInfo^.lpszProxy := PChar(ProxyServer);                         //  указать  прокси  напр. "some.proxy:someport" 
                                                                   //  или "195.43.67.33:8080"
  PIInfo^.lpszProxyBypass := PChar('');                            //  Список адресов, доступ к которым 
                                                                   //  возможен минуя Proxy сервер
  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);
  Dispose (PIInfo) ;
end;



P.S. Особоодаренные с огромным уровнем интеллекта на форумах не орут "ПАМАГИТЕ!", а идут в Гугл и ищут специализированные ресурсы по интересующей теме.
WBR, Dmitry Beloshistov AKA [-=BDS=-]
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.