Einzelnen Beitrag anzeigen

endeffects

Registriert seit: 27. Jun 2004
450 Beiträge
 
#1

InternetSetOption Api Call

  Alt 18. Mär 2005, 13:24
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)
  Mit Zitat antworten Zitat