IABACPolicy.Key

Копировать пример

Sub UserProc;
Var
    PolicyObject: IABACRootPolicyObject;
    PolicySet: IABACPolicySet;
    Policy: IABACPolicy;
    MB: IMetabase;
    MS: IMetabaseSecurity;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    // Получим структуру атрибутного доступа
    PolicyObject := MB.Security.Policy.ABACRules;
    // Выведем в консоль свойства первой политики в наборе политик
    PolicySet := PolicyObject.Policies.Item(0);
    Policy := PolicySet.Policies.Item(0);
    Debug.WriteLine(Policy.Name(MB.CurrentLocale)); // наименование
    Debug.WriteLine(Policy.Key); // ключ
    Debug.WriteLine(Policy.Id); // идентификатор
End Sub UserProc;