Comment une application Delphi peut-elle détecter les paramètres de proxy de réseau d'un PC Windows?

via Winapi - WinHTTPGETIEPROXYCONFIGFORCAURENTUREUSER . Vous devez aimer les longs noms de Winapi de MS ^ _ ^.

Après Op Modifier: Vous pouvez lire depuis le registre, il serait situé ici: P>

 [ HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Internet Settings ]

Vous devrez obtenir le paramètre proxy du navigateur, qui pourrait être dans plusieurs endroits différents en fonction du navigateur utilisé.

Vous pouvez envisager de regarder dans Protocole AutoDiscovery de Web , qui détecte automatiquement les paramètres de proxy sur un réseau.

Le code DELPHI pour Kornel Kisielewicz 's Réponse :

uses Registry, Windows;

function detectIEProxyServer() : string;
begin
  with TRegistry.Create do
    try
        RootKey := HKEY_CURRENT_USER;
        if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then begin
          Result := ReadString('ProxyServer');
          CloseKey;
        end
        else
          Result := '';
    finally
      Free;
    end;
end;

Voici une autre méthode que j'utilise, ce qui ne nécessite pas d'accès direct du registre. Cela fonctionne sous D2007, mais je ne vois pas pourquoi cela ne fonctionnerait pas sous D7.

uses
  WinInet,
  SysUtils;

function UseIEProxyInfo(var ProxyHost: String; var ProxyPort: Integer): Boolean;
var
  ProxyInfo: PInternetProxyInfo;
  Len: LongWord;
  ProxyDetails: String;
  s2: String;
  i1: Integer;

  procedure RemoveProtocol(var str: string);
  var
    i1 : integer;
  begin
    i1 := PosText('://', str);
    if i1 > 0 then
      Delete(str, 1, i1 + 2);
    i1 := PosText('http=', str);
    if i1 > 0 then begin
      Delete(str, 1, i1 + 4);
      str := SubStr(str, 1, ' ');
    end;
  end;

begin
  Result := False;

  Len := 4096;
  GetMem(ProxyInfo, Len);
  try
    if InternetQueryOption(nil, INTERNET_OPTION_PROXY, ProxyInfo, Len) then
    begin
      if ProxyInfo^.dwAccessType = INTERNET_OPEN_TYPE_PROXY then
      begin
        Result := True;
        ProxyDetails := ProxyInfo^.lpszProxy;

        RemoveProtocol(ProxyDetails);
        s2 := SubStr(ProxyDetails, 2, ':');
        if s2 <> '' then
        begin
          try
            i1 := StrToInt(s2);
          except
            i1 := -1;
          end;

          if i1 <> -1 then
          begin
            ProxyHost := SubStr(ProxyDetails, 1, ':');
            ProxyPort := i1;
          end;
        end;
      end;
    end;
  finally
    FreeMem(ProxyInfo);
  end;
end;