InternetSetOption Api Call

[endeffects]

hallo,

ich versuche die proxy einstellungen des ie zu ändern,
bisher leider ohne erfolg, hat jemand vielleicht
eine idee woran es liegen könnte?

Delphi-Quellcode:

var
   MyInternetProxyInfo: PInternetProxyInfo;
   lbResult: boolean;
begin
   MyInternetProxyInfo := New(PInternetProxyInfo);
   try
     MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
     MyInternetProxyInfo^.lpszProxy := PChar('127.0.0.1:8080');
     MyInternetProxyInfo^.lpszProxyBypass := PChar('<local>');
     lbResult := InternetSetOption(nil, INTERNET_OPTION_PROXY,
MyInternetProxyInfo, SizeOf(MyInternetProxyInfo^));
     if not lbResult then
       raise Exception.Create('Couldn''t apply proxy settings!');
   finally
     Dispose(MyInternetProxyInfo);
   end;

(die registry möchte ich nicht bearbeiten)

[endeffects]

hmm ich hab nun noch ein wenig rumprobiert,
der Proxy Support läuft nun zumindestens
wenn man eine Instanz des TWebBrowser
in den Call einbaut:

Delphi-Quellcode:

var 
   MyInternetProxyInfo: PInternetProxyInfo;
   lbResult: boolean;
begin
   MyInternetProxyInfo := New(PInternetProxyInfo);
   try
     MyInternetProxyInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
     MyInternetProxyInfo^.lpszProxy := PChar('127.0.0.1:80');
     MyInternetProxyInfo^.lpszProxyBypass := PChar('<local>');
     lbResult := InternetSetOption(nil, INTERNET_OPTION_PROXY, MyInternetProxyInfo, SizeOf(MyInternetProxyInfo^));
     if not lbResult then
       raise Exception.Create('Couldn''t apply proxy settings!')
     else
        Webbrowser.Navigate('http://domain.com');
   finally
     Dispose(MyInternetProxyInfo);
   end;