1 files changed, 25 insertions, 0 deletions
diff --git a/packages/users/examples/testuser.pp b/packages/users/examples/testuser.pp
new file mode 100644
index 0000000000..217782e807
--- /dev/null
+++ b/packages/users/examples/testuser.pp
@@ -0,0 +1,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.