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