/usr/share/doc/fp-units-misc/2.6.4/examples/users/testuser.pp is in fp-units-misc-2.6.4 2.6.4+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | program testuser;
{$mode delphi}
uses users,classes;
var
Ulist,GList : TStringlist;
i : longint;
begin
Ulist:=TStringList.Create;
Glist:=TStringList.Create;
Try
GetUserList(Ulist,True);
GetGroupList(Glist,True);
Writeln('Users: ');
For I:=0 to Ulist.Count-1 do
Writeln('User ',Ulist[i]);
Writeln('Groups: ');
For I:=0 to Glist.Count-1 do
Writeln('Group ',Glist[i]);
finally
Ulist.Free;
Glist.Free;
end;
end.
|