相关代码 |
|
【列表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;