42 lines
961 B
Plaintext
42 lines
961 B
Plaintext
program bs1rcd;
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
DBs1RcdMain in 'DBs1RcdMain.pas' {DlgBs1RcdMain},
|
|
DFindWindow in 'DFindWindow.pas' {DlgFindWindow},
|
|
ManagerConfig in 'ManagerConfig.pas',
|
|
DConfig in 'DConfig.pas' {DlgConfig},
|
|
Define in 'Define.pas',
|
|
DWaitWork in 'DWaitWork.pas' {DlgWaitWork},
|
|
ThdRecordWait in 'ThdRecordWait.pas',
|
|
DefineHelper in '..\EXE_eCrmHeHelper\DefineHelper.pas',
|
|
GlobalDefine in '..\LIB_Common\GlobalDefine.pas';
|
|
|
|
{$R *.res}
|
|
|
|
var
|
|
param: TProcessParam;
|
|
begin
|
|
ReportMemoryLeaksOnShutdown := DebugHook <> 0;
|
|
|
|
param := TProcessParam.Create;
|
|
try
|
|
if not param.ProcessParam then
|
|
exit;
|
|
|
|
if param.ExeType = etNone then
|
|
exit;
|
|
|
|
Application.Initialize;
|
|
if param.ExeType = etTest then
|
|
begin
|
|
Application.MainFormOnTaskbar := true;
|
|
end else
|
|
Application.ShowMainForm := false;
|
|
Application.CreateForm(TDlgBs1RcdMain, DlgBs1RcdMain);
|
|
Application.Run;
|
|
finally
|
|
param.Free;
|
|
end;
|
|
end.
|