delphi – 我可以确定一个进程ID(PID)是32位还是64位应用程序？

请记住,您必须使用GetProcAddress功能加载IsWow64Process功能,因为某些版本的Windows不包括此功能.

检查此示例代码

{$APPTYPE CONSOLE}

uses
  Windows,SysUtils;

type
  TIsWow64Process = function(Handle:THandle; var IsWow64 : BOOL) : BOOL; stdcall;
var
  IsWow64Process  : TIsWow64Process;

procedure Init_IsWow64Process;
var
  hKernel32      : Integer;
begin
  hKernel32 := LoadLibrary(kernel32);
  if (hKernel32 = 0) then RaiseLastOSError;
  try
    IsWow64Process := GetProcAddress(hkernel32,'IsWow64Process');
  finally
    FREELIbrary(hKernel32);
  end;
end;

function PidIs64BitsProcess(dwProcessId: DWORD): @R_489_8487@an;
var
  IsWow64        : BOOL;
  PidHandle      : THandle;
begin
  Result := false;
  if Assigned(IsWow64Process) then
  begin
    //check if the current app is running under WOW
    if IsWow64Process(GetCurrentProcess(),IsWow64) then
      Result := IsWow64
    else
      RaiseLastOSError;

    //the current delphi App is not running under wow64,so the current Window OS is 32 bit
    //and obviously all the apps are 32 bits.
    if not Result then Exit;

    PidHandle := OpenProcess(PROCESS_QUERY_INFORMATION,false,dwProcessId);
    if PidHandle > 0 then
    try
      if (IsWow64Process(PidHandle,IsWow64)) then
        Result := not IsWow64
      else
        RaiseLastOSError;
    finally
      CloseHandle(PidHandlE);
    end;
  end;
end;


begin
  try
    Init_IsWow64Process;
    //here pass the pid which you want to check
    Writeln(BoolToStr(PidIs64BitsProcess(1940),TruE));
  except
    on E:Exception do
      Writeln(E.Classname,': ',E.messagE);
  end;
  Readln;
end.