delphi 通过PID获取进程名

本文整理自网络，侵删。

 在网上找了半天，也没找到DELPHI版的PID->NAME的代码。。。找到了一份C++的，翻译成了DELPHI的，发BLOG上，方便以后查找使用。。。。

function ProcessIdToName(PID:DWORD):string;
var
hSnapshot:THandle;
PE:PROCESSENTRY32;
begin
Result:='';
hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe.dwSize:= sizeof(PROCESSENTRY32);
if Process32First(hSnapshot, pe) <> False then
begin
while (Process32Next(hSnapshot, pe)) do
begin
if (pe.th32ProcessID = PID) then
begin
Result:=pe.szExeFile;
Break;
end;
end;
end;
end; 
 

相关阅读 >>

Delphi中从windows资源管理器中拖放图片到timage控件上

Delphi 检查程序是否在（vm，vpc等）虚拟机运行 Delphi(测试可用)

Delphi 将汉字翻译成拼音缩写的函数

Delphi内嵌汇编语言basm精要

Delphi raise 语句: 抛出异常

Delphi xe7的android应用取得wi-fi的信息

Delphi urunpe

Delphi 虚拟键码对照表

Delphi图像细化处理

Delphi获取系统当前进程名和进程id

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

转载请注明出处：木庄网络博客 » delphi 通过PID获取进程名