TrackClassHistory(ClassID: Integer): Integer;
ClassId is a class of the object. Use the values of the MetabaseObjectClass enumeration to specify a class of the object.
The TrackClassHistory property determines a mask of operations for which the history will be tracked.
Only three following operations can track the history: Change, Rights change and Remove. To form and check mask value it is necessary to use a value of the enumeration type MetabaseObjectPredefinedRights. To analyze a mask value it is necessary to implement a custom function that enables the comparison of separate mask bits with relevant enumerations values. The example of work with access mask is shown in the Examples: Working with access mask section.
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;
After executing this example the "i" variable contains the value that determines the operations on folders for which the records will be added to the access protocol.
See also: