twebbrowser proxy, delphi 2009 Опции

[Rian]

нашел для указания браузеру прокси такую процедуру, только до ее выполнения браузер загружает, а после указания прокси перестает...

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 ??

Сообщение отредактировано: Rian - 11.11.2011 18:05