📄 列表5.20.txt
字号:
【列表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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -