delphi中获得进程列表或想要的进程，枚举进程、遍历进程
- 一个常见的编程任务是枚举所有运行的"应用程序"。Windows 任务管理器就是一个很好的例子。它用两种方式列出"应用程序"。任务管理器的第一个选项卡列出桌面上的所有"应用程序窗口"。第二个选项卡列出系统中的所有"进程"。本文提供了如何执行这些任务的详细信息。
- 枚举顶层窗口如果将枚举进程与枚举桌面上的顶层窗口进行比较，那么枚举顶层窗口可能更容易一些。要枚举顶层窗口，请使用 EnumWindows() 函数。不要使用 GetWindow() 创建自己的窗口列表，因为它可能受 z 轴次序更改和丢失窗口的干扰。
- EnumWindows() 将指向某个回调函数的指针以及用户定义的 LPARAM 值作为其参数。它对桌面上的每个窗口（或顶层窗口）分别调用一次回调函数。然后，回调函数可以对此窗口句柄进行某种处理，如将其添加到一个列表中。此方法可以保证不受窗口 z 轴次序更改等项的干扰。在获取窗口句柄后，可以通过调用 GetWindowText() 来获取其标题。
- 枚举进程
- 在系统中创建进程列表比枚举窗口要稍微复杂一些。这主要是因为执行此操作的 API 函数因所使用的 Win32 操作系统而异。在 Windows 95、Windows 98、Windows Millennium Edition、Windows 2000 和 Windows XP 中，可以使用 ToolHelp32 API 库中的函数。但是，在 Windows NT 中，必须使用 PSAPI API 库中的函数（Platform SDK 中包含该库）。本文将讨论这两种技术，另外还提供一个称为 EnumProcs() 的示例包装函数，该函数可以在 Win32 操作系统中运行。
- 使用 ToolHelp32 库枚举进程
- 首先讨论 ToolHelp32 方法。KERNEL32.dll 中的 ToolHelp32 函数是标准的 API 函数。注意，在 Windows NT 4.0 中不提供这些 API。
- 可以使用 ToolHelp32 提供的各种函数，枚举系统中的进程和线程以及获取内存和模块信息。但是，在枚举进程时，仅需要使用以下三个函数：CreateToolhelp32Snapshot()、Process32First() 和 Process32Next()。
- 使用 ToolHelp32 函数的第一步是创建系统信息的"快照"。可以使用 CreateToolhelp32Snapshot() 函数完成这一步。此函数允许选择在快照中存储的信息类型。如果您需要进程信息，则一定要包括TH32CS_SNAPPROCESS 标志。CreateToolhelp32Snapshot() 函数返回一个句柄，在使用完该句柄后，必须将其传递到 CloseHandle()。
- 下一步，为了检索快照中的进程列表，可以调用一次 Process32First，然后重复调用多次 Process32Next。执行此操作，直到其中的一个函数返回 FALSE 为止。这将逐个获得快照进程列表中的进程。这两个函数都将"快照"句柄和指向 PROCESSENTRY32 结构的指针作为其参数。
- 在调用 Process32First或 Process32Next 后，PROCESSENTRY32 结构将包含系统中某个进程的有用信息。进程 ID 在该结构的 th32ProcessID 成员中。可以将它传递到 OpenProcess() 以获取该进程的句柄。该进程的可执行文件（进程名称）和路径存储在结构的 szExeFile 成员中。还可以在此结构中找到其他有用的信息。（szExeFile是指进程名称）。
- 备注：切记，在调用 Process32First() 之前，将 PROCESSENTRY32 结构的 dwSize 成员设置为 sizeof(PROCESSENTRY32)。***********************************************************************************************************************************
- 举例：
procedure TForm1.Button1Click(Sender: TObject); //在程序中添加一个buttin1按钮和一个memo1显示框 var jubing : hwnd;//句柄 fprocessentry32 : TProcessEntry32; //结构类型的变量 zhenjia : Boolean; //返回一个布尔值（用来判断是否找到进程信息） processid : dword; //储存找到的进程ID mingcheng : string; //储存找到的进程名称 end; begin jubing := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //获得进程快照句柄 fprocessentry32.dwSize := sizeof(fprocessentry32); //给TProcessEntry32结构的第一个参数赋值（也可以理解为把这个结构的第一个参数初始化） zhenjia := Process32First(jubing,fprocessentry32); //使用 Process32First函数取得第一个进程的信息 while zhenjia = true do //如果 Process32First函数执行成功也就是说找到进程列表里的第一个进程时开始循环 begin zhenjia := Process32Next(jubing,FprocessEntry32); //取得第下一个进程信息 mingcheng := fprocessentry32.szExeFile; //取得一个进程的名称 if mingcheng = 'svchost.exe' then //如果进程名等于这个字符串 self.Memo1.lines.Add(mingcheng); //把找到的进程显示出来 end;
- 上一篇 »linux进程说明
- 下一篇 »python3 多进程下载指定列表