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.