使用delphi从PID获取完整路径

uses
  Windows;

function GetProcessPathFromPID(PID: DWORD): string;
var
  hProcess: THandle;
  path: array[0..MAX_PATH] of Char;
begin
  Result := '';
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);
  if hProcess <> 0 then
  begin
    try
      if GetModuleFileNameEx(hProcess, 0, path, MAX_PATH) > 0 then
        Result := path;
    finally
      CloseHandle(hProcess);
    end;
  end;
end;

// 示例用法
var
  PID: DWORD;
  ProcessPath: string;
begin
  PID := 1234; // 替换为目标进程的PID
  ProcessPath := GetProcessPathFromPID(PID);
  if ProcessPath <> '' then
    ShowMessage('进程路径：' + ProcessPath)
  else
    ShowMessage('无法获取进程路径');
end.