procedure proxy_go(proxy: string);
var proxy_info : PInternetProxyInfo;
begin
New (proxy_info);
proxy_info^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
proxy_info^.lpszProxy := PChar(proxy);
proxy_info^.lpszProxyBypass := PChar('');
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, proxy_info, SizeOf(Internet_Proxy_Info), 0);
Dispose(proxy_info);
end;
proxy_go('82.179.217.243:8080');
ЗЫ так кажется мои опасения по поводу версии делфи оправдались и delphi7 код заработал.... почему не работает в delphi2009 ??