列表5.15.txt

来自「klinux书籍的配套光盘。可以学习学习。」· 文本 代码 · 共 10 行

【列表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;