mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-14 09:11:30 +01:00
26 lines
454 B
ObjectPascal
26 lines
454 B
ObjectPascal
program testuser;
|
|
|
|
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.
|