Function to create new users group.
function mCreateUsersGroup(sGroupName: string): integer;
Parameter |
Type |
Value |
---|---|---|
sGroupName |
string |
users group name. The letter case is important. |
An integer is the internal index of created group. If the function returns "-1" then such group already exists.
var
i: integer;
s: string;
begin
for i := 1 to 5 do begin
s := 'Group-' + IntToStr(i);
mCreateUsersGroup(s);
end;
end.