Delphi获取进程快照(snapshot)

一、函数介绍
在Windows系统中动态链接库kernel32.dll提供了获取和处理系统进程的许多接口函数，delphi语言把这些函数接口封装到Tlhelp32.pas中，供delphi用户开发过程调用。要详细了解相关知识可以查阅Tlhelp32.pas原文件和Windows SDK提供的帮助文件。其中同本文涉及的接口函数主要有CreateToolhelp32Snapshot、process32first、 process32next、module32first、module32next五个函数以及TMODULEENTRY32、 TPROCESSENTRY32两个数据结构。
1、CreateToolhelp32Snapshot
该函数是要实现上述目的最核心的一个函数，它可以获取系统运行进程(Process)列表、线程(Thread)列表和指定运行进程的堆 (Heap)列表、调用模块(Module)列表。
如果函数运行成功将返回一个非零"Snapshot"句柄，通过该句柄调用相关WinAPI函数就可以实现上述目的，其函数格式为：
HANDLE WINAPI CreateToolhelp32Snapshot(Dword dwFlags, Dword th32ProcessID);
参数说明：
snapshot:"快照"
dwFlags参数:对函数建立的"Snapshot"所包含的列表类型，可选项包括：
TH32CS_SNAPHEAPLIST：所创建的Snapshot包含堆列表
TH32CS_SNAPMODULE ：所创建的Snapshot包含调用模块列表
TH32CS_SNAPTHREAD ：所创建的Snapshot包含线程列表；
TH32CS_SNAPPROCESS ：所创建的Snapshot包含进程列表；
TH32CS_SNAPALL ：所创建的Snapshot包含上述所有列表；
th32ProcessID参数：
进程句柄参数，可以为零表示当前进程，该参数只对dwFlags包含TH32CS_SNAPMODULE、
TH32CS_SNAPHEAPLIST可选项时起作用。
当dwFlags为TH32CS_SNAPPROCESS，
th32ProcessID为零时函数得到系统的所有进程列表。
2、Process32First、Process32Next、Module32First、Module32Next
这四个函数都是对"Snapshot"所包含的列表进行息获取，根据函数字面的英文意义，不难理解各函数的含义和区别，四个函数的格式分别为：
BOOL WINAPI Process32First(HANDLE hSnapshot,
LPPROCESSENTRY32 lppe);
BOOL WINAPI Process32Next(HANDLE hSnapshot,
LPPROCESSENTRY32 lppe);
BOOL WINAPI Module32First(HANDLE hSnapshot,
LPMODULEENTRY32 lpme);
BOOL WINAPI Module32Next(HANDLE hSnapshot,
LPMODULEENTRY32 lpme);
3、TMODULEENTRY32、TPROCESSENTRY32
这两个数据结构中TPROCESSENTRY32是在Process32First、Process32Next两个函数所用到的数据结构，TMODULEENTRY32是在Module32First、Module32Next所用到的数据结构，两个数据结构分别如下：
typedef struct tagPROCESSENTRY32 {
Dword dwSize;
Dword cntUsage;
Dword th32ProcessID; //进程句柄
Dword th32DefaultHeapID;
Dword th32ModuleID;
Dword cntThreads;
Dword th32ParentProcessID;
LONG pcPriClassBase;
Dword dwFlags;
char szExeFile[MAX_PATH];
} PROCESSENTRY32;
typedef struct tagMODULEENTRY32 {
Dword dwSize;
Dword th32ModuleID;
Dword th32ProcessID;
Dword GlblcntUsage;
Dword ProccntUsage;
BYTE * modBaseAddr;
Dword modBaseSize;
HMODULE hModule;
char szModule[MAX_MODULE_NAME32 + 1];
char szExePath[MAX_PATH]; //调用模块的含路径文件名www.atcpu.com
} MODULEENTRY32;
在使用上面两个数据结构要特别强调一点，那就是函数使用这两个数据结构的变量时要先设置dwSize的值，分别用sizeof(TPROCESSENTRY32)和sizeof(TMODULEENTRY32)。
由于篇幅有限以上所提到的函数和数据结构可以查看Windows SDK帮助文件获取更详细的信息。
二、实现原理
要实现获得系统的所有运行进程和每个运行进程所调用模块的信息，实际上只要使用两重循环，外循环获取系统的所有进程列表，内循环获取每个进程所调用模块列表。用以下四组API调用实现:
1、创建系统的所有进程列表
ProcessList:= CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS,0);
2、提取进程列表项信息存储在TPROCESSENTRY32 pe32中
Process32First(ProcessList,pe)
Process32Next(ProcessList,pe)
3、创建指定进程所有调用模块列表
ModuleRec:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,
pe.processID);
4、提取调用模块列表项信息存储在TMODULEENTRY32 pm中
Module32First(ModuleList,pm);
Module32Next(ModuleList,pm);
三、核心源码
有了以上知识以后，我们就可以很容易地实现获取系统的所有进程以及各进程运行过程所调用的模块文件了。


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,Messages,Windows,Tlhelp32;

var
  processRec: Thandle;
  pe32: TProcessEntry32;
  processNum: Integer;

  procedure EnumModule(processid: Dword);
  var
    moduleRec: THandle;
    pm: TModuleEntry32;
  begin
    // create module snapshot
     moduleRec := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,processID);
     //module size
     pm.dwSize := sizeof(TModuleEntry32);
     //  first module?
     if ( module32First(moduleRec,pm) ) then
     begin
        while Module32Next(moduleRec,pm) do
        begin
           Writeln('module name: ',StrPas(pm.szModule));
        end;
     end;
     CloseHandle(moduleRec);
   end;

   procedure OutProcessName(processName: string);
   begin
      WriteLn('Process Name:',processName);
   end;
begin
processNum := 0;
//create process snapshot
processRec := CreateToolHelp32Snapshot( TH32CS_SNAPPROCESS,0 );
pe32.dwSize := sizeOf( TPROCESSENTRY32 );
if Process32First( processRec, pe32) then
begin
   // enum the process module
    OutProcessName( pe32.szExeFile );
    EnumModule( pe32.th32ProcessID );
    inc(processNum);    //inc process count
    while Process32Next( processRec,pe32 ) do
    begin
      OutProcessName( pe32.szExeFile );
      EnumModule( pe32.th32ProcessID );
      inc(processNum);//inc process count
    end;
    WriteLn('Total System Process:',processNum);
    CloseHandle(processRec);
    Readln;

end;
end.