FindLevelByLabel(CriticalityLabel: Integer): ISecurityLevel;
CriticalityLabel - метка критичности, по которой будет осуществляется поиск.
Метод FindLevelByLabel осуществляет поиск уровня с меткой критичности, передаваемой в качестве параметра CriticalityLabel.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
MU: IMetabasePolicy;
MAccess: IMetabaseMandatoryAccess;
SecCat: ISecurityCategory;
SecLev: ISecurityLevel;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
MU := MS.Policy;
MAccess := MU.MandatoryAccess;
SecCat := MAccess.Category(0);
SecLev := SecCat.FindLevelByLabel(4);
If SecLev <> Null Then
Debug.WriteLine(SecLev.Name);
End If;
End Sub Main;
После выполнения примера будет осуществлен поиск уровня безопасности с меткой критичности "4". В случае удачного поиска в консоль среды разработки будет выведено наименование найденного уровня.
См. также: