列表5.4.txt

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

【列表5.4】从一个运行的子进程中启动一个新的程序。
procedure DoChildPROCESS;
const
   ProgramArgs: array [0..2] of  PChar=(‘ps’,’-ef’,nil);
begin
  WriteLn ('Child: ProcessID = ', getpid);
   WriteLn ('Child: Parent= ', getppid);
   sleep (7);
   WriteLn ('Child: launching ps');
   execvp ('ps', @ProgramArgs);
   perror ('Child: Error launching program');
end;