zoukankan      html  css  js  c++  java
  • 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; 
    /// <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等接口即可

  • 相关阅读:
    rails路由
    RRD.so文件 rrdruby
    windows rails new demo时候出错Make sure that `gem install mysql2 -v '0.3.15'` succeeds before bundling.
    d3js把circle和rect连接在一起
    ubuntu 12.04 rails server 时候报错 execjs
    mysql2
    rails rake 版本问题
    rails下mysql出错问题mysql_api,blog/text
    ubuntu安装mysql
    vmware下ubuntu不能上网 => 恢复默认虚拟网络
  • 原文地址:https://www.cnblogs.com/spider518/p/1921304.html
Copyright © 2011-2022 走看看