我刚刚收到一个错误报告,该问题仅在程序“在64位计算机上运行”时才会出现.现在,Delphi不会生成64位代码,所以从理论上说这应该不重要,但显然它确实在这种情况下.我想我有一个解决方法,但它会破坏32位Windows上的东西,所以我需要一些方法来告诉：
>如果我在x64或x86处理器上运行
>如果我在Win32仿真下运行64位版本的Windows或在32位操作系统上运行本机Win32.
有谁知道如何从我的应用程序中获得这些答案？
解决方法
Mason,您可以使用
IsWow64Process(WOW64是x86仿真器,允许32位基于Windows的应用程序在64位Windows上无缝运行)
Uses Windows;
type
WinIsWow64 = function( Handle: THandle; var Iret: BOOL ): Windows.BOOL; stdcall;
function IAmIn64Bits: Boolean;
var
HandleTo64BitsProcess: WinIsWow64;
Iret : Windows.BOOL;
begin
Result := False;
HandleTo64BitsProcess := GetProcAddress(GetModuleHandle('kernel32.dll'),'IsWow64Process');
if Assigned(HandleTo64BitsProcess) then
begin
if not HandleTo64BitsProcess(GetCurrentProcess,Iret) then
Raise Exception.Create('Invalid handle');
Result := Iret;
end;
end;
再见.