Delphi WebBrowser 无法调用当前浏览器的版本 --转

出自：http://blog.csdn.net/wensibo/article/details/25971863

procedure TregedtIE.FormCreate(Sender: TObject);
begin
  WriteAppNameToReg;
  WebBrowser1.Navigate('C:\a.html');
end;
{--}
{需要注意是GetNativeSystemInfo 函数从Windows XP 开始才有，
 而 IsWow64Process 函数从 Windows XP with SP2 以及 Windows Server 2003 with SP1 开始才有。
 所以使用该函数的时候最好用GetProcAddress 。
}
function TregedtIE.IsWin64: Boolean;
var
  Kernel32Handle: THandle;
  IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall;
  GetNativeSystemInfo: procedure(var lpSystemInfo: TSystemInfo); stdcall;
  isWoW64: Bool;
  SystemInfo: TSystemInfo;
const
  PROCESSOR_ARCHITECTURE_AMD64 = ;
  PROCESSOR_ARCHITECTURE_IA64 = ;
begin
  Kernel32Handle := GetModuleHandle('KERNEL32.DLL');
  if Kernel32Handle =  then
    Kernel32Handle := LoadLibrary('KERNEL32.DLL');
  if Kernel32Handle <>  then
  begin
    IsWOW64Process := GetProcAddress(Kernel32Handle,'IsWow64Process');
    GetNativeSystemInfo := GetProcAddress(Kernel32Handle,'GetNativeSystemInfo');
    if Assigned(IsWow64Process) then
    begin
      IsWow64Process(GetCurrentProcess,isWoW64);
      Result := isWoW64 and Assigned(GetNativeSystemInfo);
      if Result then
      begin
        GetNativeSystemInfo(SystemInfo);
        Result := (SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) or
                  (SystemInfo.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64);
      end;
    end
    else Result := False;
  end
  else Result := False;
end;
{--}
function TregedtIE.WriteAppNameToReg: Boolean;
var
  reg :TRegistry;
  sPath,sAppName:String;
begin
  Result := True;
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    sPath := 'SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION';
    if isWin64 then
      sPath := 'SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION';
    if reg.OpenKey(sPath,True) then
    begin
      sAppName := ExtractFileName(Application.ExeName);
     if not reg.ValueExists(sAppName) then
        reg.WriteInteger(sAppName,);
    end;
    reg.CloseKey;
  finally
    FreeAndNil(reg);
  end;
end;
{--}
procedure TregedtIE.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  WebBrowser1.OleObject.Document.Body.Scroll := 'no';
  WebBrowser1.OleObject.Document.Body.style.border := 'none';
  webbrowser1.OleObject.Document.Body.Style.margin := '0px';
end;  

注册表这里HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION 加上你的exe名字