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


本文整理自网络,侵删。

 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锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi 通过进程id获取进程名

Delphi xe 取得硬盘序列号代码

Delphi制作手机签名app(windows同样适用)

Delphi 消息实现窗口最小化,最大化,关闭(Delphi)

Delphi 如何获取重载函数的地址

Delphi 获取任意月份总共有多少天数

Delphi superobject json操作类的基本用法

Delphi idhttp实现get方法下载文件,断点续传

Delphi 解决strtodatetime()不是有效日期类型的问题

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...