一直苦恼于找不到获取系统默认的UserAgent的方法，今天偶然想到一种方法，可实现效果

最新推荐文章于 2025-10-05 20:48:56 发布

原创最新推荐文章于 2025-10-05 20:48:56 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#webbrowser #浏览器 #ie

软件技术专栏收录该内容

40 篇文章

订阅专栏

本文介绍了一种通过Delphi代码获取系统默认UserAgent的方法。该方法利用了SHDocVw和MSHTML组件，并通过创建WebBrowser对象来读取其父窗口的clientInformation.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等接口即可