学步园

/// <summary><br /> /// 获取系统默认的UserAgent<br /> /// uses SHDocVw, MSHTML;<br /> /// </summary><br /> function GetUserAgent: string;<br /> var<br /> Doc: IHTMLDocument2;<br /> win: IHTMLWindow2;<br /> wb: TWebBrowser;<br /> begin<br /> Result := '';<br /> try<br /> wb := TWebBrowser.Create(nil);<br /> try<br /> wb.Navigate('about:blank');<br /> while not wb.ReadyState = READYSTATE_COMPLETE do<br /> Application.ProcessMessages;<br /> Doc := IHTMLDocument2(wb.Document);<br /> if not Assigned(Doc) then Exit;<br /> win := Doc.parentWindow;<br /> if Assigned(win) then<br /> Result := win.clientInformation.userAgent;<br /> finally<br /> wb.Free;<br /> end;<br /> except<br /> end;<br /> end;

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