Einzelnen Beitrag anzeigen

Benutzerbild von DirkG
DirkG

Registriert seit: 29. Sep 2003
Ort: Schwerin
67 Beiträge
 
Delphi 5 Enterprise
 
#5

Re: Einstellungen des IE setzen

  Alt 21. Jun 2005, 14:50
@toms
Ich habe nach gesehen und folgendes probiert.

Hier mal der Code:

Delphi-Quellcode:

function WriteSystemSettings: boolean;
var ProxyInfo: PInternetProxyInfo;
    hInt : HINTERNET;
begin
  //-- Variablen initialisieren -----------------------------------------------
  Result := true; ProxyInfo:= New(PInternetProxyInfo);
  hInt := InternetOpen(PChar(Application.Title), INTERNET_OPEN_TYPE_DIRECT,
                           nil, nil, INTERNET_FLAG_OFFLINE);
  //-- Versuche die Einstellungen zu schreiben --------------------------------
  try
    ProxyInfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
    ProxyInfo.lpszProxy := PChar('192.168.20.100:8080');
    ProxyInfo.lpszProxyBypass:= PChar('<local>');
    if not InternetSetOption(hInt, INTERNET_OPTION_PROXY, ProxyInfo, SizeOf(ProxyInfo^))
      then Result:= GetError;
  finally
    FreeMem(ProxyInfo);
  end;
end;
Der Fehler ist weg. Leider habe ich keine Änderung der Einstellungen festgestellt, egal ob eine Instance des Browser aktiv ist oder nicht.

Folglich muss da irgendwo noch ein Bug sitzen.
Wer weiss da weiter?
Human are Human to make mistakes.
  Mit Zitat antworten Zitat