Delphi下获取系统默认的UserAgent的方法
来源:互联网 发布:sql应用开发培训 编辑:程序博客网 时间:2024/06/05 16:23
/// <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下获取系统默认的UserAgent的方法
- Delphi下获取系统默认的UserAgent的方法
- 一直苦恼于找不到获取系统默认的UserAgent的方法,今天偶然想到一种方法,可实现效果
- delphi获取系统安装的默认浏览器
- 默认的 UserAgent
- 获取webbrowser的useragent
- 查看UserAgent的方法
- linux 下获取默认网关的方法
- Android获取WebView的UserAgent
- Delphi 获取系统默认打印机
- 获取 UIWebview 的 Useragent,以及附加自定义字段到 Useragent
- 获取 UIWebview 的 Useragent,以及附加自定义字段到 Useragent
- DELPHI--获取某目录下的所有文件名的方法
- 更改Delphi系统的默认字体
- 更改Delphi系统的默认字体
- 获取系统默认的encoding
- 获取系统的默认编码
- 各种浏览器的userAgent(VS获取)
- js和URL的传递、窗口的打开
- Oracle性能优化之统计分析
- 【KMP】HDU 6153 A Secret
- Android Studio 自带的模拟器 (avd模拟器)开机提示需要输入密码的问题
- 算法第1篇——选择排序
- Delphi下获取系统默认的UserAgent的方法
- 【LEDE】树莓派上玩LEDE终极指南-98-Node.js和NPM在LEDE上存在的问题和解决方案
- Visual Studio Code
- 爬今日头条文章
- 锁
- HDU2089 不要62
- ubuntu 静动态ip以及dns配置
- HTML5 标准规范
- ASP生成静态Html文件技术