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

最新推荐文章于 2024-09-18 15:54:41 发布

wensibo

最新推荐文章于 2024-09-18 15:54:41 发布

阅读量5.5k

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/wensibo/article/details/25971863

版权

在使用Delphi的WebBrowser组件时遇到一个问题，即无法正确获取和利用当前浏览器的版本信息。这可能导致一些现代网页功能无法正常工作。本文将探讨这个问题的原因，并分享可能的解决方案。

摘要由CSDN通过智能技术生成

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 = 9;
  PROCESSOR_ARCHITECTURE_IA64 = 6;
begin
  Kernel32Handle := GetModuleHandle('KERNEL32.DLL');
  if Kernel32Handle = 0 then
    Kernel32Handle := LoadLibrary('KERNEL32.DLL');
  if Kernel32Handle <> 0 then
  begin
    IsWOW64Process := GetProcAddress(K