Flags: SecurityDescriptorFlags;
The Flags property determines whether access permissions are inherited from parent object.
To execute the example, make sure that the repository contains an object with the Obj_1 identifier.
Add a link to the Metabase system assembly.
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;
After executing the example the inheritance of the access permissions from the parent object is canceled for the specified object.
See also: