Delphi下获取IE的UserAgent的方法-木庄网络博客

本文整理自网络，侵删。
 方法一：
使用SHDocVw, MSHtml单元提供的一些方法利用浏览器的特性来获取。

uses SHDocVw, MSHtml;

function GetUserAgent: string;
var
  Doc: IHTMLDocument2;
  win: IHTMLWindow2;
  wb: TWebBrowser;
begin
  Result := '';
  try
    wb := TWebBrowser.Create(nil);
    try
      wb.Navigate('about:blank');
      while not wb.ReadyState = READYSTATE_COMPLETE do
        Application.ProcessMessages;
      Doc := IHTMLDocument2(wb.Document);
      if not Assigned(Doc) then Exit;
      win := Doc.parentWindow;
      if Assigned(win) then
        Result := win.clientInformation.userAgent;
    finally
      wb.Free;
    end;
  except
  end;
end; 

注：此方法为获取系统默认的UserAgent的方法，而不一定是系统默认IE浏览器的UserAgent，如需获取IE浏览器的UserAgent，可将Webbrowser对象改为IWebBrowser2或IShellWindows等接口即可。



方法二：
其实很简单就是从注册表里面读取。不过该方法读取出来的并不完整。

uses Registry;

function GetDefaultUserAgent: string;
var
  reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings\', FALSE)
      then Result := Reg.ReadString('User Agent');
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;

注：其实也可以从 HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings 下面读取 User Agent 的值，从 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent\Post Platform 下读取 .NET CLR 2.0.50727 类似如此的项名称，然后拼接在一起就可以构成一个IE浏览器的 UserAgent。


方法三：
利用UrlMon里面提供的方法来获取浏览器的User Agent，不过该方法有时候会失误，比如我的浏览器是IE8.0，而结果却是IE7.0。

uses UrlMon;

function GetIEUserAgent: String;
var
  IeUserAgent: array[0 .. MAX_PATH] of Char;
  dwSizeOut: DWord;
begin
  Result := '';
  try
    dwSizeOut := 0;
    ZeroMemory(@IeUserAgent, MAX_PATH * SizeOf(Char));
    UrlMkGetSessionOption(URLMON_OPTION_USERAGENT, @IeUserAgent, MAX_PATH, dwSizeOut, 0);
    Result := StrPas(IeUserAgent);
  except
    on E: Exception do
    begin
      ShowMessage(E.Message);
    end;
  end;
end;
Delphi下获取IE的UserAgent的方法

相关推荐

评论
