通过进程句柄关闭某个程序的进程

最新推荐文章于 2022-08-08 15:45:35 发布

iteye_951

最新推荐文章于 2022-08-08 15:45:35 发布

阅读量891

点赞数

CC 4.0 BY-SA版权

文章标签： xszlo.com

本文链接：https://blog.csdn.net/iteye_951/article/details/82478741

本文提供了一段用于枚举Windows环境下进程句柄树并关闭指定进程的Delphi代码。该代码通过递归方式列出所有子进程，并允许进一步操作如关闭等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下面是具体代码
总共分为两个过程
EnumProcTree 主要用来枚举句柄树
KillProc 关闭某个程序的进程

procedure EnumProcTree(const PID: DWORD;
out PID_Tree: TPIDTree);

procedure ListTree(RootPID: DWORD);
var
hP_Root: THandle;
Found: Boolean;
Pn: TProcesseNtry32;
hSnap: THandle;
begin
hP_Root := OpenProcess(PROCESS_ALL_ACCESS, False, RootPID);
if hP_Root <> 0 then
begin
CloseHandle(hP_Root);

SetLength(PID_Tree, Length(PID_Tree) + 1);
PID_Tree[Length(PID_Tree) - 1] := RootPID;

hSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
Pn.dwSize := SizeOf(TProcesseNtry32);
Found := Process32First(hSnap, Pn);
while Found do
begin
if RootPID = Pn.th32ParentProcessID then
begin
ListTree(Pn.th32ProcessID);
end;
Found := Process32Next(hSnap, Pn);
end;
CloseHandle(hSnap);
end;
end;
begin
SetLength(PID_Tree, 0);
ListTree(PID);
end;

全部代码可以到
[url]http://www.xszlo.com/article/2012-12-24/7746.html[/url]
查看