Здравствуйте, 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. Особоодаренные с огромным уровнем интеллекта на форумах не орут "ПАМАГИТЕ!", а идут в Гугл и ищут специализированные ресурсы по интересующей теме.