列表5.4.txt

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

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