本文整理自网络，侵删。
/// <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;
/// <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 利用hook api函数openprocess与terminateprocess来防止任务管理器结束进程
更多相关阅读请进入《Delphi》频道 >>
