PrivilegeName(Index: Integer): String;
Index. Индекс привилегии.
Свойство PrivilegeName возвращает наименование привилегии по индексу.
Для выполнения примера добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
MU: IMetabasePolicy;
i: Integer;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
MU := MS.Policy;
For i := 0 To MU.PrivilegeCount - 1 Do
Debug.WriteLine(MU.PrivilegeName(i));
End For;
End Sub UserProc;
После выполнения примера в консоль среды разработки будут выведены наименования привилегий, доступных в менеджере безопасности.
См. также: