webbrowserコントロール UserAgentの設定方法 TWebbrowser

2016-04-13 00:01

webbrowserコントロールのUserAgentの設定方法

設定しない場合は、IE7となるので注意。
オプションには、レジストリを書き換えるオプションもあります。今回は割愛。

Delphi言語
TWebbrowser

// uses UrlMon;
// const USERAGENT_IE11 = 'Mozilla/5.0 (Windows NT 10.0; Trident/7.0; rv:11.0) like Gecko';
function SetUserAgent(AUserAgentText : string) : boolean;
begin
  Result := (S_OK =
    UrlMon.UrlMkSetSessionOption(URLMON_OPTION_USERAGENT,
           PChar(AUserAgentText), Length(AUserAgentText), 0)
            );
end;