delphi 根据进程PID获取程序所在路径的函数

本文整理自网络，侵删。

 //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 winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi 程序员的反攻－－－－打击p2p

Delphi 通过系统api函数实现精确记时

Delphi 内进行音量控制及静音

Delphi让文本框接受文件拖放

Delphi中如何设置更改编译生成的exe文件的保存位置

Delphi获得某个磁盘或是文件夹的所有子目录

Delphi tchart使用经验小结

Delphi 调用相应程序打开网址

Delphi 截取字符串的用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 根据进程PID获取程序所在路径的函数