blob: ab1637f239b9e399aef3bed2157732bb9af1f31f (
plain)
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;
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.
|
