列表5.3.txt

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

【列表5.3】使用函数fork建立一个子进程。
{forkTest.dpr - Illustrate using fork to create a child process }
program forkTest;
{$APPTYPE CONSOLE}
uses Libc, SysUtils;
var
   forkResult : __pid_t;
procedure DoChildProcess;
begin
   WriteLn ('Child: ProcessID = ', getpid);
   sleep (10);
   WriteLn ('Child: Exiting');
end;
procedure DoParentProcess;
begin
   WriteLn ('Parent: Child ProcessID = ', forkResult);
   sleep (5);
   WriteLn ('Parent: Exiting');
end;
begin
   WriteLn ('Parent: ProcessID = ', getpid);
   forkResult := fork;
   case forkResult of
      -1 : WriteLn ('Error creating child process');
       0 : DoChildProcess;
       else
          DoParentProcess;
   end;
end.