本文整理自网络，侵删。
//uses psapi;
{根据进程PID获取程序所在路径的函数}
function GetProcessExePath(PID: Cardinal): string;
var
pHandle: THandle;
buf: array[0..MAX_PATH] of Char;
begin
{获取进程句柄}
pHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);
{获取进程路径}
GetModuleFileNameEx(pHandle, 0, buf, Length(buf));
CloseHandle(pHandle);
Result := buf;
end; 相关阅读 >>
Delphi idhttp http.get 获取json数据
Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能
Delphi 利用windows api判断文件共享锁定状态
Delphi qr /条形码扫描仪应用示例代码（使用zxing，tframestand）
Delphi getmimetypefromfile 获取文件mime类型
更多相关阅读请进入《Delphi》频道 >>
