关闭

TWebBrowser控件使用指定IE版本显示网页

标签: delphiTWebBrowserIEVCLcustom
1092人阅读 评论(0) 收藏 举报
分类:

好记性不如烂笔头,转自QQ群。

procedure IEEmulator(VerCode: Integer);
var
  RegObj: TRegistry;
begin
  RegObj := TRegistry.Create;
  try
    RegObj.RootKey := HKEY_CURRENT_USER;
    RegObj.Access := KEY_ALL_ACCESS;
    if not RegObj.OpenKey('\SOFTWARE\Microsoft\Internet ' +
        'Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION', False) then exit;
    try
      RegObj.WriteInteger(ExtractFileName(ParamStr(0)), VerCode
        {10000 compatibility with IE10}); // for other versions read msdn

    finally
      RegObj.CloseKey;
    end;
  finally
    RegObj.Free;
  end;
end;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:264941次
    • 积分:2555
    • 等级:
    • 排名:第14389名
    • 原创:48篇
    • 转载:8篇
    • 译文:1篇
    • 评论:73条
    文章分类
    最新评论