两种取系统进程的方法

要在uses里加入PsAPI，PsAPI可以取得模块的带路径名，但对于system用户的进程有无法访问的错误返回。

先看代码：

procedure TForm1.Button1Click(Sender: TObject); var hProc : THandle; //存放OpenProcess返回的进程句柄 ahmods : array [0..1024] of DWORD; //存放进程所调用模块的数组 ahProcesses: array [0..1024] of DWORD; //存放进程列表的数组 cbProcess, cbModule : DWORD; // numOfProcess: DWORD; //进程个数 i, j : integer; sDllUsed: string; //某个进程使用的模块 acModuleName : array [0..5120] of Char; //模块路径 acProcName : array [0..2048] of Char; //进程式名字 tmplvitem : TListItem; begin if not EnumProcesses(@ahprocesses,SizeOf(ahProcesses),cbProcess) then //枚举系统内所有进程 Exit; numOfProcess := cbProcess div SizeOf(cbProcess); //计算进程个数 for i := 0 to numOfProcess - 1 do begin tmplvitem := lv1.Items.Add; tmplvitem.Caption := IntToStr(ahprocesses[i]); hProc := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ahprocesses[i]); //打开一个进程，该函数返回此进程的控制句柄 if hProc = 0 then begin ShowMessage(IntToStr(ahprocesses[i]) + '号进程访问出错，原因为：' + SysErrorMessage(GetLastError)); end; if GetModuleFileNameEx(hProc,Cardinal(0),@acProcName,SizeOf(acProcName)) > 0 then //取进程的全路径名 tmplvitem.SubItems.Add(PChar(@acProcName)); if EnumProcessModules(hProc,@ahmods,SizeOf(ahmods),cbModule) then //枚举此进程所用到的模块 begin sDllUsed := ''; for j := 0 to cbModule div SizeOf(cbModule) do begin if 0 < GetModuleFileNameEx(hProc,ahmods[j],@acModuleName,SizeOf(acModuleName)) then //取某个模块的全路径名 begin sDllUsed := sDllUsed + ExtractFileName(PChar(@acModuleName)) + ', '; //从全路径名中取出文件名 end; end; tmplvitem.SubItems.Add(sDllUsed); end; end; end;

 

上面的代码主要用到三个API函数，MSDN上的C++语法描述：

一、枚举系统中的进程，EnumProcesses，如果此函数返回0表示出错。

//C++ BOOL WINAPI EnumProcesses( __out DWORD *pProcessIds, //存放枚举出来的进程，是一个DWORD数组 __in DWORD cb, //第一个参数的大小， __out DWORD *pBytesReturned //向第一个参数写入的字符数 );

二、打开一个进程，OpenProcess，如果此数返回0表时打开进程出错，在Delphi中用SysErrorMessage(GetLastError)可以得到出错原因。

//C++ HANDLE WINAPI OpenProcess( __in DWORD dwDesiredAccess,//用什么权限打开此进程 __in BOOL bInheritHandle,//这里用False就行 __in DWORD dwProcessId //要打开的进程的ID );

三、取进程的全路径名， GetModuleFileNameEx，如果此函数成功，返回往lpFileName中写了多少个字节，如果此函数返回0，表示出错。要注意的是，如果lpFilename不够大，名字会被载掉，所以，在调用此函数后，可比较一下此函数的返回值与nSize的大小，如果nSize大，说明lpFilename不够大，把lpFilename再设大一点，再次调用此函数就可以了。

//C++ DWORD WINAPI GetModuleFileNameEx( __in HANDLE hProcess, //要取哪个进程信息就写哪个进程的句柄，这个句柄是OpenProcess返回的值 __in_opt HMODULE hModule, //取此进程中哪个模块的名字，是0即取进程的名，不是进程所调模块的名 __out LPTSTR lpFilename, //存放取到的名字 __in DWORD nSize; //lpFilename的大小

四、枚举进程中的模块，EnumProcessModules，如果此函数失败，返回0。

//C++ BOOL WINAPI EnumProcessModules( __in HANDLE hProcess, //要枚举哪个进程的模块，此参数是OpenProcess的返回值 __out HMODULE *lphModule, //存放枚举出来的模块列表，一般用一个数组 __in DWORD cb, //第二个参数的大小 __out LPDWORD lpcbNeeded //向第二个参数中写入了多少个字符 );

第二种是在uses里加入TlHelp32，这里面的可以取得system用户的进程名，但只是名字，不带路径。

看看代码：

procedure TForm1.Button3Click(Sender: TObject); var ProcEntry : TProcessEntry32; //单个进程信息结构体 ModEntry : MODULEENTRY32; //进程式模块信息结构体 hSnapShot : THandle; //快照句柄 hModSnapShot : THandle;//进程内模块的快照 bProcSuccess, bModuleSuccess : Boolean; //hProc : THandle;//进程句柄 tmplvitem : TListItem; sModNames : string; begin hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);//枚举所有进程中所有模块 ProcEntry.dwSize := SizeOf(ProcEntry); bProcSuccess := Process32First(hSnapShot,ProcEntry); //复制第一个进程的信息到结构体中 while bProcSuccess do begin tmplvitem := lv2.Items.Add; tmplvitem.Caption := IntToStr(ProcEntry.th32ProcessID); //进程ID tmplvitem.SubItems.Add(ProcEntry.szExeFile); //进程名字(不带全路径） hModSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,ProcEntry.th32ProcessID); bModuleSuccess := Module32First(hModSnapShot, ModEntry);//复制进程中第一个模块信息到模块结构体 sModNames := ''; while bModuleSuccess do begin sModNames := sModNames + PChar(@ModEntry.szModule) + ', '; bModuleSuccess := Module32Next(hModSnapShot, ModEntry); //复制进程中的下一个模块信息 end; tmplvitem.SubItems.Add(sModNames); bProcSuccess := Process32Next(hSnapShot,ProcEntry); //复制下一个进程的信息到进程结构体 CloseHandle(hModSnapShot); end; CloseHandle(hSnapShot); end;