fpcdocs/olinuxex/ex18.pp


1
2
3
4
5
6
7
8
9

Program Example18;

{ Program to demonstrate the GetGid and GetEGid functions. }

Uses oldlinux;

begin
 writeln ('Group Id = ',getgid,' Effective group Id = ',getegid);
end.