ISecurityDescriptor.Flags

Синтаксис

Flags: SecurityDescriptorFlags;

Flags: Prognoz.Platform.Interop.Metabase.SecurityDescriptorFlags;

Описание

Свойство Flags определяет признак наследования прав доступа от родительского объекта.

Пример

Для выполнения примера убедитесь, что в репозитории содержится объект с идентификатором «Obj_1».

Добавьте ссылку на системную сборку Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    SDesc: ISecurityDescriptor;
Begin
    MB := MetabaseClass.Active;
    SDesc := MB.ItemById("Obj_1").SecurityDescriptor;
    SDesc.Edit;
    SDesc.Flags := SecurityDescriptorFlags.Locked;
    SDesc.Apply(False);
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    SDesc: ISecurityDescriptor;
Begin
    MB := Params.Metabase;
    SDesc := MB.ItemById["Obj_1"].SecurityDescriptor;
    SDesc.Edit();
    SDesc.Flags := SecurityDescriptorFlags.sdfLocked;
    SDesc.Apply(False);
End Sub;

После выполнения примера для указанного объекта будет отменено наследование прав доступа от родительского объекта.

См. также:

ISecurityDescriptor