TrackClassHistory(ClassID: Integer): Integer;
ClassId - класса объекта. Для указания класса объекта используйте значения перечислимого типа MetabaseObjectClass.
Свойство TrackClassHistory определяет маску операций, для которых будет вестись история.
Ведение истории доступно только по трем операциям: Изменение, Изменение прав и Удаление. Для формирования и проверки значения маски необходимо использовать значения перечислимого типа MetabaseObjectPredefinedRights. Для разбора значения маски необходимо реализовать пользовательскую функцию, которая позволит сопоставить отдельные биты маски соответствующим значениям перечислений. Пример работы с маской доступа представлен в разделе Примеры: Работа с маской доступа.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
MU: IMetabasePolicy;
AuPol: IMetabaseAuditPolicy;
i: Integer;
Begin
MB:=MetabaseClass.Active;
MS:=MB.Security;
MU:=MS.Policy;
AuPol:=MU.AuditPolicy;
i:=AuPol.TrackClassHistory(MetabaseObjectClass.KE_CLASS_FOLDER);
End Sub Main;
После выполнения примера в переменной «i» будет содержаться значение, определяющее операции над папками, для которых будут добавляться записи в протокол доступа.
См. также: