mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-20 06:58:38 +02:00
25 lines
490 B
ObjectPascal
25 lines
490 B
ObjectPascal
Program Example14;
|
|
|
|
{ Program to demonstrate the Fork and WaitPidfunction. }
|
|
|
|
Uses oldlinux;
|
|
|
|
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.
|