Fork

   

Declaration:

Function Fork : Longint;

Description:

Fork creates a child process which is a copy of the parent process.

Fork returns the process ID in the parent process, and zero in the child's process. (you can get the parent's PID with GetPPid).

Errors:

On error, -1 is returned to the parent, and no child is created.

sys_eagain

Not enough memory to create child process.

See also:

Execve, fork (2)

Example

Program Example14;

{ Program to demonstrate the Fork and WaitPidfunction. }

Uses linux;

Var PID, ExitStatus : Longint;
  
begin
  Writeln ('Spawning a child');
  PID:=Fork;
  If PID=0 then
    begin 
    Writeln ('Hello From the Child !!');
    Writeln ('Exiting with exit status 1 !');
    Halt (1);
    end
  Else 
    begin
    Writeln ('Spawned child with PID : ',PID);
    WaitPid (PID,@ExitStatus,0);
    Writeln ('Child exited with status : ',ExitStatus shr 8);
    end; 
end.