核心提示：一、函数介绍 在系统中动态链接库.dll提供了获取和处理系统进程的许多接口函数，语言把这些函数接口封装到.pas中，供用户开发过程...
一、函数介绍
在系统中动态链接库.dll提供了获取和处理系统进程的许多接口函数，语言把这些函数接口封装到.pas中数据结构next函数，供用户开发过程调用。要详细了解相关知识可以查阅.pas原文件和 SDK提供的帮助文件。其中同本文涉及的接口函数主要有shot、、 、、五个函数以及、 两个数据结构。
1、shot
该函数是要实现上述目的最核心的一个函数，它可以获取系统运行进程()列表、线程()列表和指定运行进程的堆 (Heap)列表、调用模块()列表。如果函数运行成功将返回一个非零""句柄数据结构next函数 Delphi中的CreateToolhelp32Snapshot函数，通过该句柄调用相关函数就可以实现上述目的，其函数格式为：
shot(DWORD ,
DWORD );
参数说明：
参数:对函数建立的""所包含的列表类型，可选项包括：
：所创建的包含堆列表
：所创建的包含调用模块列表
：所创建的包含线程列表；
：所创建的包含进程列表；
：所创建的包含上述所有列表；
参数：进程句柄参数，可以为零表示当前进程，该参数只对包含、 可选项时起作用。当为，为零时函数得到系统的所有进程列表。
2、、、、
这四个函数都是对""所包含的列表进行息获取数据结构next函数，根据函数字面的英文意义，不难理解各函数的含义和区别，四个函数的格式分别为：
BOOL ( ,
lppe);
BOOL ( ,
lppe);
BOOL ( ,
lpme);
BOOL ( ,
lpme);
3、、
这两个数据结构中是在、两个函数所用到的数据结构，是在、所用到的数据结构，两个数据结构分别如下：
{
DWORD ;
DWORD ;
DWORD ; //进程句柄
DWORD ;
DWORD ;
DWORD ;
DWORD ;
LONG ;
DWORD ;
char [];
} ;
{
DWORD ;
DWORD ;
DWORD ;
DWORD ;
DWORD ;
BYTE * ;
DWORD ;
;
char [ + 1];
char []; //调用模块的含路径文件名
} ;
在使用上面两个数据结构要特别强调一点，那就是函数使用这两个数据结构的变量时要先设置的值，分别用()和()。
由于篇幅有限以上所提到的函数和数据结构可以查看 SDK帮助文件获取更详细的信息。
二、实现原理
要实现获得系统的所有运行进程和每个运行进程所调用模块的信息，实际上只要使用两重循环，外循环获取系统的所有进程列表，内循环获取每个进程所调用模块列表。用以下四组API调用实现:
1、创建系统的所有进程列表
:= shot
(,0);
2、提取进程列表项信息存储在 pe中
(,pe)
(,pe)
3、创建指定进程所有调用模块列表
:=shot(,
pe.);
4、提取调用模块列表项信息存储在 pm中
(,pm);
(,pm);
三、核心源码
有了以上知识以后，我们就可以很容易地实现获取系统的所有进程以及各进程运行过程所调用的模块文件了。具体步骤如下：
1、运行，进入的IDE开发环境；
2、新建；
3、在默认的Form1中添加和控件；
4、设置的属性为；
5、把以下代码输入过程中；
6、编译运行；
核心代码如下所示：
uses ;
.(: );
var
:;
pe :;
node :;
:;
(:Dword);
var
:;
pm :;
begin
:=shot
(,);
pm.:=();
if (,pm)
then begin
.Items.(node,pm.);
while (,pm) do
.items.(node,pm.);
end;
();
end; //
begin //
:=0;
.Items.Clear;
:=shot
(,0);
pe.:=();
if (,pe) then
begin
node:=.Items.Add(nil,pe.);
(pe.);
inc();
while (,pe) do
begin
node:=.Items.Add(nil,pe.);
(pe.);
inc();
end;
end;
edit1.text:=’系统进程：’+();
();
end;