列表5.15.txt

klinux书籍的配套光盘。可以学习学习。

【列表5.15】使用EnumProcesses 进程。
procedure TForml. EnumProcessCB (pid: _pid_t);
begin
   Memol. Lines.Add (IntToStr (pid));
end;
procedure TForml.FormCreate (Sender: TObject);
begin
   EnumProcesses (EnumProcessCB);
end;