Win32：如何枚举子进程？

Question

在 Win32 下枚举当前正在运行的进程的子进程的最佳方法是什么？我可以想到几种方法来做到这一点，但它们似乎过于复杂和缓慢。以下是该解决方案的要求：

1. 具体来说，我需要知道当前是否有任何正在运行的进程是由当前进程启动的。
2. 将在 WinXP 上运行并且不需要分发特殊的 DLL。
3. 不应需要大量 CPU 开销（它将定期在后台运行）。
4. 我最终将在 Delphi 中编写此内容，但我可以从您拥有代码的任何语言进行转换。大多数情况下，我正在寻找最有效的 Win32 API 集来使用。

谢谢！

Answer 1

您可以使用 toolhelp API

#include <tlhelp32.h>

Process32First() 

并使用

Process32Next()

http://www.codeproject.com/KB/ 循环线程/processes.aspx

编辑delphi

uses tlhelp32;

procedure FillAppList(Applist: Tstrings); 
var   Snap:THandle; 
        ProcessE:TProcessEntry32; 
begin 
     Applist.Clear; 
     Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
     ProcessE.dwSize:=SizeOf(ProcessE); 
     if Process32First(Snap,ProcessE) then 
     begin 
          Applist.Add(string(ProcessE.szExeFile)); 
          while Process32Next(Snap,ProcessE) do 
                 .. compare parent id
      end 
      CloseHandle(Snap); 
end;