69 lines
2.4 KiB
Plaintext
69 lines
2.4 KiB
Plaintext
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.
|