IsGroup: Boolean;
The IsGroup property indicates whether the security package user is a group member.
If the property returns False, the current user is not a group member. Otherwise the property returns True.
To execute the example, add a link to the Metabase assembly.
Sub UserProc;
Var
MB: IMetabase;
LoS: ILogonSession;
Mu: IMetabaseUser;
SPUD: ISecurityPackageUserData;
Grp: Boolean;
Begin
MB:=MetabaseClass.Active;
LoS:=MB.LogonSession;
Mu:=Los.User;
SPUD:=Mu.PackageData;
Cr:=SPUD.IsGroup;
Debug.WriteLine (Grp);
End Sub UserProc
After executing the example the console window shows a message that informs whether the current user is a group member.
See also: