fpcdocs/olinuxex/ex17.pp


1
2
3
4
5
6
7
8
9

Program Example17;

{ Program to demonstrate the GetUid and GetEUid functions. }

Uses oldlinux;

begin
  writeln ('User Id = ',getuid,' Effective user Id = ',geteuid);
end.