uses urlmon, wininet;
var var PIInfo : PInternetProxyInfo;
begin
New (PIInfo) ;
// Изменение настроек ПРОКСИ
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Тип доступа в интернет - через Proxy сервер
PIInfo^.lpszProxy := PChar(Trim(form2.Edit1.Text)); // указать прокси напр. 195.43.67.33:8080
PIInfo^.lpszProxyBypass := PChar(''); // Список адресов, доступ к которым возможен минуя Proxy сервер
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);
Dispose (PIInfo) ;
WebBrowser.Navigate('URL');// proxy для этого URL, настройки прокси в системе не поменяются
end;
|