Delphi 获取系统当前进程、窗口句柄、文件属性以及程序运行状态

最新推荐文章于 2024-08-14 18:55:14 发布

dkopg24406

最新推荐文章于 2024-08-14 18:55:14 发布

阅读量867

点赞数 1

原文链接：http://www.cnblogs.com/blogpro/p/11343990.html

版权

本文介绍了如何使用Delphi进行系统进程管理，包括显示进程列表、结束进程、获取进程EXE路径，以及窗口管理如窗口列表、结束窗口进程、获取窗口进程路径。同时，还涉及了文件属性的查询以及判断程序运行状态的方法。

摘要由CSDN通过智能技术生成

uses
TLHelp32,PsAPI;
(1)显示进程列表：

 1 procedure TForm1.Button2Click(Sender: TObject);
 2 var 
 3 lppe: TProcessEntry32;
 4 found : boolean;
 5 Hand : THandle;
 6 P:DWORD;
 7 s:string;
 8 begin
 9 ListBox1.Items.Clear ;
10 Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
11 found := Process32First(Hand,lppe);
12 while found do
13 begin
14 s := StrPas(lppe.szExeFile);
15 if lppe.th32ProcessID>0 then
16 p := lppe.th32ProcessID
17 else
18 p := 0;
19 ListBox1.Items.AddObject(s,pointer(p));//列出所有进程。
20 found := Process32Next(Hand,lppe);
21 end;
22 end;

View Code

(2)杀死某进程：

 1 procedure TForm1.Button3Click(Sender: TObject);
 2 var 
 3 lppe: TProcessEntry32;
 4 found : boolean;
 5 Hand : THandle;
 6 P:DWORD;
 7 sExeFile,sSelect:string;
 8 killed:boolean;
 9 begin
10 p :=DWORD(ListBox1.Items.Objects[ListBox1.itemindex]);
11 if P<>0 then