TU2的专栏

开源:https://gitee.com/245806497

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

好记性不如烂笔头,转自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;

阅读更多
个人分类: Windows Delphi 笔记
想对作者说点什么? 我来说一句

delphi twebbrowser小例子。

2013年10月24日 636KB 下载

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭