列举系统进程及其所调用的模块文件(Delphi XE2)

     原文：http://blog.csdn.net/iseekcode/article/details/4740168

    原文的代码可能适用于delphi7，我修改了一下，使它可以在delphi xe2下运行，效果还不错。

 

代码：

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls,Tlhelp32;type  TForm1 = class(TForm)    button1: TButton;    TreeView1: TTreeView;    Edit1: TEdit;    procedure button1Click(Sender: TObject);  private    { Private declarations }  public  var    ProcessList: Thandle;    pe: TPROCESSENTRY32;    node: TTreenode;    processnumber: integer;    { Public declarations }    procedure ProcessEnum(Sender: TObject);    procedure ModuleEnum(processid: Dword);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.button1Click(Sender: TObject);begin  ProcessEnum(self);end;procedure TForm1.ModuleEnum(processid: Dword);var  ModuleList: Thandle;  pm: TMODULEENTRY32;begin  ModuleList := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, processid);  pm.dwSize := sizeof(TMODULEENTRY32);  if module32first(ModuleList, pm)  then  begin    TreeView1.Items.addchild(node, pm.szexepath);    while module32next(ModuleList, pm) do      TreeView1.Items.addchild(node, pm.szexepath);  end;  closehandle(ModuleList);end; // ModuleEnumprocedure TForm1.ProcessEnum(Sender: TObject);begin // ProcessEnum  processnumber := 0;  TreeView1.Items.Clear;  ProcessList := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  pe.dwSize := sizeof(TPROCESSENTRY32);  if process32first(ProcessList, pe) then  begin    node := TreeView1.Items.Add(nil, pe.szexefile);    ModuleEnum(pe.th32ProcessID);    inc(processnumber);    while process32next(ProcessList, pe) do    begin      node := TreeView1.Items.Add(nil, pe.szexefile);      ModuleEnum(pe.th32ProcessID);      inc(processnumber);    end;  end;  edit1.text := '系统进程 ： ' + inttostr(processnumber);  closehandle(ProcessList);end;end.