[s2004]

прокси, как сделать возможность ввода с клавиатуры, неудобно же вводить компилировать, а потом па новой делать
поэтому, как исправить на возможность ввода с клавиатуры

Код:

uses ... urlmon, wininet ...

....

var PIInfo : PInternetProxyInfo;

...     

New (PIInfo) ;

//  Изменение  настроек ПРОКСИ 

PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;  //  Тип доступа в интернет - через Proxy сервер 

PIInfo^.lpszProxy := PChar('some.proxy:someport');   //  указать  прокси  напр. 195.43.67.33:8080 

PIInfo^.lpszProxyBypass := PChar('');  //  Список адресов, доступ к которым возможен минуя Proxy сервер 

 

UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);  

.... 

Dispose (PIInfo) ; 

пример прекрасно рабоитает в браузере взят drkb3