win2000或者xp中获得所有进程及其id号的api是什么？(200分)

如果有命令的话也请告诉。（不需要终端服务的）

procedure TProcList.GetProcessInfo;
var
Fi : TSHFileInfo;
tw : Word;
ts : array[0..MAX_PATH] of char;
PObj : TProcessInfo;
var
i:Integer;
snap : THandle;
pe32 : TPROCESSENTRY32;
begin
snap := 0;
try
snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if snap <> 0 then begin
pe32.dwSize := SizeOf(TPROCESSENTRY32);
if Process32First(snap, pe32) then begin
AddProcess(pe32);
while Process32Next(snap, pe32) do
AddProcess(pe32);
end;
end;
finally
CloseHandle(snap);
end;
End;

——节选自 ProcList 控件的源代码。

UPUP

EnumProcesses

多人接受答案了。