Thema: Delphi TEmbeddedWB mit Proxy

Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#4

Re: TEmbeddedWB mit Proxy

  Alt 25. Sep 2008, 23:50
Bei UserAgent kannst du GetIEUserAgent einsetzen:


Delphi-Quellcode:
function GetIEUserAgent: string;
var
  reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := HKEY_CURRENT_USER;
      try
        if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\User Agent\Post Platform', True) then
          Result := ReadString(UserAgent);
      finally
        CloseKey;
      end;
    end;
  finally
    Free;
  end;
end;
Thomas
  Mit Zitat antworten Zitat