Packs: IScPacks;
Свойство Packs возвращает коллекцию пакетов безопасности платформы.
Sub UserProc;
Var
Man: IMetabaseManager;
Packs: IScPacks;
Pack: IScPack;
Begin
Man := MetabaseManagerFactory.Active;
Packs := Man.Packs;
For Each Pack In Packs Do
Debug.WriteLine(Pack.Id + " " + Pack.Name);
End For;
End Sub UserProc;
После выполнения примера в консоль среды разработки будет выведен список пакетов безопасности, доступных в платформе.
См. также: