UserName: String;
Свойство UserName определяет наименование пользователя пакета безопасности.
Sub Main;
Var
MB: IMetabase;
LoS: ILogonSession;
Mu: IMetabaseUser;
SPUD: ISecurityPackageUserData;
s: String;
Begin
MB:=MetabaseClass.Active;
LoS:=MB.LogonSession;
Mu:=Los.User;
SPUD:=Mu.PackageData;
s:=SPUD.UserName;
End Sub Main;
После выполнения примера в переменной «S» будет содержаться наименование пользователя пакета безопасности текущей сессии.
См. также: