本文整理自网络，侵删。
Delphi获取系统当前进程名和进程ID
获取系统当前进程名和进程ID，注意在编写本单元时，应注意引用"TLHelp32"单元"use TLHelp32".
procedure TForm1.Button1Click(Sender: TObject);
var
ProcessName : string; //进程名
ProcessID : integer; //进程表示符
i : integer;
ContinueLoop:BOOL;
FSnapshotHandle:THandle; //进程快照句柄
FProcessEntry32:TProcessEntry32; //进程入口的结构体信息
begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程
//循环例举
while ContinueLoop do
begin
ProcessName := FProcessEntry32.szExeFile;
ProcessID := FProcessEntry32.th32ProcessID;
Listbox.Items.add('应用程序名 ：'+ProcessName +'#进程ID：'+ inttostr(ProcessID));
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;
相关阅读 >>
Delphi获取jpg、gif、png等格式图片的大小（高度和宽度）
Delphi异常处理try except语句和try finally语句用法以及区别
Delphi xe android的所有权限按照分类总结说明
Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？
Delphi 如何将access数据库后缀名accdb改为mdb
更多相关阅读请进入《Delphi》频道 >>
