IMetabaseClassSecurityDescriptor.ClassId

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

Sub UserProc;
Var
    MB: IMetabase;
    SecDescrs: IMetabaseClassesSecurityDescriptors;
    MS: IMetabaseSecurity;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    MS := MB.Security;
    // Получим список типов объектов с правами
    SecDescrs := MS.MetabaseClassesSecurityDescriptors;
    For i := 0 To SecDescrs.Count - 1 Do
        Debug.WriteLine(SecDescrs.Item(i).ClassId);
    End For;
End Sub UserProc;