fpcdocs/bunixex/ex17.pp


1
2
3
4
5
6
7
8
9

Program Example17;

{ Program to demonstrate the GetUid and GetEUid functions. }

Uses BaseUnix;

begin
  writeln ('User Id = ',fpgetuid,' Effective user Id = ',fpgeteuid);
end.