列表5.20.txt

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

【列表5.20】使用ProcEnumFiles过程。
procedure TForm1. EnumFilesCB (pid: __pid_t; fd: integer);
begin
   Memo1. Lines.Add (Format ('%d = %s', [fd, ProcGetFd (pid, fd)]);
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
   ProcEnumFiles (EnumFilesCB);
end;