{*******************************************************} { } { ManagerCaPolicy } { } { Copyright (C) 2022 kku } { } {*******************************************************} unit ManagerCaPolicy; interface uses Tocsg.Obj, System.SysUtils, System.Classes, Winapi.Windows; type TCtxAwareKind = (cakUnknown, cakDate, cakTime, cakIpRange, cakWlan, cakVNic, cakRdp, cakWebb, cakUSB, cakBT, cakMTP, cakApp, cakAppInst, cakAppCap, cakFile, cakFolder, cakLogoff, cakScrSv, cakScrLck, cakSleep, cakSecu, cakVul); TCaTaskKind = (ctkUnknown, ctkPortPO, ctkConnPO, ctkWebb, ctkAppPO, ctkAppInstPO, ctkUsbPO, ctkBtPO, ctkMtpPO, ctkFile, ctkFolder, ctkCttSchFile, ctkCttSchDir, ctkBlcDownDirPO, ctkScrLogoPO, ctkBlcClipPO, ctkScrLock); TManagerCaPolicy = class(TTgObject) public Constructor Create; Destructor Destroy; override; end; implementation { TManagerCaPolicy } Constructor TManagerCaPolicy.Create; begin Inherited Create; end; Destructor TManagerCaPolicy.Destroy; begin Inherited; end; end.