fpcdocs/bunixex/ex16.pp


1
2
3
4
5
6
7
8
9

Program Example16;

{ Program to demonstrate the GetPid, GetPPid function. }

Uses BaseUnix;

begin
  Writeln ('Process Id = ',fpgetpid,' Parent process Id = ',fpgetppid);
end.