RemoveLevel(Index: Integer): Boolean;
Index - индекс уровня безопасности, который необходимо удалить.
Метод RemoveLevel осуществляет удаление уровня безопасности и возвращает признак удачного удаления.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
MU: IMetabasePolicy;
Cat: ISecurityCategory;
MAccess: IMetabaseMandatoryAccess;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
MU := MS.Policy;
MAccess := MU.MandatoryAccess;
Cat := MAccess.Category(0);
Cat.RemoveLevel(1);
MS.Apply;
End Sub Main;
После выполнения примера в первой категории безопасности будет осуществлено удаление второго уровня.
См. также: