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