爱上超模米兰达可儿:获取进程列表、名称、路径

获取进程列表、名称、路径

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls, TLHelp32, psapi;
9. type
10.   TForm1 = class(TForm)
11.     Button1: TButton;
12.     ListBox1: TListBox;
13.     procedure Button1Click(Sender: TObject);
14.   private
15.     function GetProcessPath(ProcessID: DWORD): string;
16.   public
17.     { Public declarations }
18.   end;
20. var
21.   Form1: TForm1;
23. implementation
25. {$R *.dfm}
27. //------------------------------------------------------------------------------
28. // 通过进程ID获得进程路径
29. //------------------------------------------------------------------------------
31. function TForm1.GetProcessPath(ProcessID: DWORD): string;
32. var
33.   Hand: THandle;
34.   ModName: array[0..Max_Path - 1] of Char;
35.   hMod: HModule;
36.   n: DWORD;
37. begin
38.   Result := '';
39.   Hand := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessID);
40.   if Hand > 0 then
41.   try
42.     ENumProcessModules(Hand, @hMod, Sizeof(hMod), n);
43.     if GetModuleFileNameEx(Hand, hMod, ModName, Sizeof(ModName)) > 0 then
44.       Result := ExtractFilePath(ModName);
45.   except
46.   end;
47. end;
50. procedure TForm1.Button1Click(Sender: TObject);
51. var
52.   ProcessName: string; //进程名
53.   ProcessID: integer; //进程表示符
54.   i: integer;
55.   ContinueLoop: BOOL;
56.   FSnapshotHandle: THandle; //进程快照句柄
57.   FProcessEntry32: TProcessEntry32; //进程入口的结构体信息
58. begin
59.   FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //创建一个进程快照
60.   FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
61.   ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); //得到系统中第一个进程
62. //循环例举
63.   while ContinueLoop do
64.   begin
65.     ProcessName := FProcessEntry32.szExeFile;
66.     ProcessID := FProcessEntry32.th32ProcessID;
67.     Listbox1.Items.add('应用程序名：' + ProcessName + '#进程ID：' + inttostr(ProcessID) + '路径：' + GetProcessPath(ProcessID));
68.     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
69.   end;
70. end;
71. end.