program KvCttSch;

uses
  Vcl.Forms,
  System.SysUtils,
  Tocsg.Trace,
  Tocsg.Path,
  DKvCttSchMain in 'DKvCttSchMain.pas' {DlgKvCttSchMain},
  Define in 'Define.pas',
  CttSchDefine in '..\LIB_Common\CttSchDefine.pas',
  Tocsg.KvFilter.adinfo in '..\..\KvFilter\Tocsg.KvFilter.adinfo.pas',
  Tocsg.KvFilter.Kwautdef in '..\..\KvFilter\Tocsg.KvFilter.Kwautdef.pas',
  Tocsg.KvFilter in '..\..\KvFilter\Tocsg.KvFilter.pas',
  Tocsg.KvFilter.types in '..\..\KvFilter\Tocsg.KvFilter.types.pas',
  ThdCttSch in 'ThdCttSch.pas',
  ManagerPattern in '..\..\PatternManager\ManagerPattern.pas',
  Tocsg.Watermark in '..\..\WaterToImage\Tocsg.Watermark.pas',
  Tocsg.DRM.Encrypt in '..\..\TocsgDRM\LIB_Common\Tocsg.DRM.Encrypt.pas',
  KvCttSchClient in 'KvCttSchClient.pas',
  Process7zip in 'Process7zip.pas',
  ProcessAlzip in 'ProcessAlzip.pas',
  ProcessDecompress in 'ProcessDecompress.pas',
  ProcessSoftcampDRM in '..\..\SoftCampTest\ProcessSoftcampDRM.pas',
  DWaitProcPrt in '..\..\PrinterMon\DWaitProcPrt.pas' {DlgWaitExtrProcPrt},
  Condition in '..\..\..\eCrmHE\LIB_Common\Condition.pas',
  GlobalDefine in '..\..\..\eCrmHE\LIB_Common\GlobalDefine.pas',
  ManagerImgMskData in '..\..\ImageMasking\ManagerImgMskData.pas',
  STLabGuardModule in '..\..\Snaptag4BS1\STLabGuardModule.pas',
  Tocsg.Kess in '..\..\KessDRM\Tocsg.Kess.pas',
  Tocsg.Fasoo in '..\..\FasooDRM\Tocsg.Fasoo.pas',
  Tocsg.Fasoo.Global.Define in '..\..\FasooDRM\EXE_bs1fsg\Tocsg.Fasoo.Global.Define.pas',
  Tocsg.Fasoo.Global in '..\..\FasooDRM\EXE_bs1fsg\Tocsg.Fasoo.Global.pas',
  Tocsg.Valid in '..\..\..\Tocsg.Lib\VCL\Tocsg.Valid.pas',
  ProcessPrintWater in '..\..\..\eCrmHE\EXE_eCrmHomeEdition\Process\ProcessPrintWater.pas';

{$R *.res}

var
  param: TProcessParam;
//  trace: TTgTrace;
  sLPath: String;

begin
  ReportMemoryLeaksOnShutdown := DebugHook <> 0;

//  trace := nil;
//{$IFDEF DEBUG}
//  sLPath := GetRunExePathDir + 'KvCttSch.log';
//  DeleteFile(sLPath);
//  trace := TTgTrace.Create(ExtractFilePath(sLPath), ExtractFileName(sLPath));
//{$ENDIF}
  param := TProcessParam.Create;
  try
    if not param.ProcessParam then
      exit;

    Application.Initialize;
    Application.MainFormOnTaskbar := param.TaskType = csttTest;
    if param.TaskType <> csttTest then
      Application.ShowMainForm := false;
    Application.CreateForm(TDlgKvCttSchMain, DlgKvCttSchMain);
  Application.Run;
  finally
    param.Free;
//    if trace <> nil then
//      trace.Free;
  end;
end.