Delphi获取系统默认的UserAgent的方法

本文整理自网络，侵删。

 
/// <summary>
/// 获取系统默认的UserAgent
/// uses SHDocVw, MSHTML;
/// </summary>
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等接口即可
 

相关阅读 >>

Delphi idhttp http.get 获取json数据

Delphi 利用google api生成二维码图像

Delphi 打造mygetprocaddress函数(Delphi源码)

Delphi中使用ixmlhttprequest如何用post方式提交带参

Delphi createmutex建立互斥对象，并且给互斥对象起一个唯一的名字

Delphi 泛型，存放n张图片

Delphi getprocesshandleasname 获取进程句柄

Delphi使用ado读写excel文件

Delphi 提权，杀进程，删服务

Delphi 获取外网ip的函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi获取系统默认的UserAgent的方法