根据进程PID获取程序所在路径的函数 x32-x64 d7-d2007-xe2通用支持（Delphi全网首发）

本文链接：https://blog.csdn.net/wh445306/article/details/105434441

  {获取进程路径}
  //此函数64位进程无效，需调用GetProcessImageFileName（32位64位全能）  
  GetModuleFileNameEx(pHandle, 0, Path, Length(Path));

参考微软MSDN：

getProcessImageFileNameA 函数 (psapi.h) - Win32 apps | Microsoft Learn

主要用到的API:

GetProcessImageFileNameA

GetLogicalDriveStrings

OpenProcess

QueryDosDevice

C++声明

DWORD GetProcessImageFileNameA(
  HANDLE hProcess,
  LPSTR  lpImageFileName,
  DWORD  nSize
);

  function GetProcessImageFileName(hProcess: Cardinal; lpImageFileName: LPSTR; nSize: DWORD): DWORD; stdcall;  external 'PSAPI.dll' name 'GetProcessImageFileNameA';


{根据进程PID获取程序所在路径的函数  x32-x64 d7-d2007-xe2通用支持}
function GetProcessExePath_x32_x64(PID: Cardinal): string;
var
  buf:array [0..MAX_PATH-1] of char;
  m_Result:Integer;
  i,j:Integer;
  str_temp:string;

  pHandle: Cardinal;
  DosPath:array[0..MAX_PATH-1] of AnsiChar;   //必须定义为 AnsiChar ,否则获取的数据在XE2会乱码
  sDosDrive:array[0..MAX_PATH-1] of Char;
  sDriveList:TStringList;
begin
  {获取驱动器列表}
  sDriveList:=TStringList.Create;
  m_Result:=GetLogicalDriveStrings(MAX_PATH,buf);
  for i:=0 to (m_Result div 4) do
  begin
    //str_temp:=string(buf[i*4]+buf[i*4+1]+buf[i*4+2]);    //C:\
    str_temp:=string(buf[i*4]+buf[i*4+1]);                 //C:
    sDriveList.Add(str_temp);
  end;

  {启用调试权限}
  //EnableDebugPriv;
  {获取进程句柄}
  pHandle := OpenProcess(PROCESS_QUERY_INFORMATION, False, PID);

  {获取进程路径}
  if GetProcessImageFileName(pHandle, DosPath, MAX_PATH+1) <>0 then  //该函数返回值为dospath长度，返回的第二个参数path数据为\Device\HarddiskVolume4\实用软件\DisplayX.exe这样的DOS路径。需转换
  begin
    for j:=0 to sDriveList.Count-1 do
    begin
      if QueryDosDevice(PChar(sDriveList.Strings[j]),sDosDrive ,MAX_PATH)<>0 then   //获取C:这样的NT盘符对应的\Device\HarddiskVolume1 这样的DOS路径
      begin
        if Pos(sDosDrive,DosPath)>0 then
        begin
          // Result:=sDriveList.Strings[j]+RightStr(DOSPath,Length(DOSPath)-StrLen(sDosDrive));   //WideString 长度用Length,PChar长度用StrLen，否则出错。
          Result:=sDriveList.Strings[j]+Copy(DOSPath,StrLen(sDosDrive)+1,Length(DOSPath)-StrLen(sDosDrive));  //delphi2007中使用此方法以免中文乱码
        end;
      end;
    end;
  end;
  sDriveList.Free;
  CloseHandle(pHandle);
  Form1.edit1.Text:=DosPath;
end;

效果如下图：