48 lines
1.3 KiB
Plaintext
48 lines
1.3 KiB
Plaintext
{*******************************************************}
|
|
{ }
|
|
{ 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.
|