BillsEditor/Dpr/BillsEditor.dpr

program BillsEditor;

uses
  Forms,
  Windows,
  SysUtils,
  MainForm in '..\MF\MainForm.pas' {MainFrm},
  BillsProjectFrame in '..\MF\BillsProjectFrame.pas' {BillsProjectView: TFrame},
  StdBillsLibForm in '..\MF\StdBillsLibForm.pas' {StdBillsLibFrm},
  DataBase in '..\DB\DataBase.pas' {DMDataBase: TDataModule},
  StdBillsLibDM in '..\DB\StdBillsLibDM.pas' {DMStdBillsLib: TDataModule},
  ConstMethodUnit in '..\CU\ConstMethodUnit.pas',
  ConstTypeUnit in '..\CU\ConstTypeUnit.pas',
  ConstVarUnit in '..\CU\ConstVarUnit.pas',
  ScAutoUpdateUnit in '..\CU\ScAutoUpdateUnit.pas',
  ScBillsTree in '..\CU\ScBillsTree.pas',
  ScCopyBills in '..\CU\ScCopyBills.pas',
  ScFileArchiver in '..\CU\ScFileArchiver.pas',
  ScFileProviders in '..\CU\ScFileProviders.pas',
  ScKindsOfTrees in '..\CU\ScKindsOfTrees.pas',
  ScProjectManager in '..\CU\ScProjectManager.pas',
  ScTables in '..\CU\ScTables.pas',
  ScUpdateDataBase in '..\CU\ScUpdateDataBase.pas',
  AboutForm in '..\AF\AboutForm.pas' {AboutFrm},
  CheckPosForm in '..\AF\CheckPosForm.pas' {CheckPosFrm},
  FlashForm in '..\AF\FlashForm.pas' {flashFrm},
  ScConfig in '..\CU\ScConfig.pas',
  ScStdBillsCtrl in '..\CU\ScStdBillsCtrl.pas',
  ScOptionsFrm in '..\MF\ScOptionsFrm.pas' {frmOptions},
  HisRestorePointFrm in '..\MF\HisRestorePointFrm.pas' {frmRestorePoint},
  HisRestorePointDM in '..\DB\HisRestorePointDM.pas' {DMHisRestorePoint: TDataModule},
  ScEvaluate in '..\CU\ScEvaluate.pas',
  ScExprsDM in '..\DB\ScExprsDM.pas' {DMExprs: TDataModule},
  NewProjectFrm in '..\AF\NewProjectFrm.pas' {NewProjectForm},
  ProjectPropertyDM in '..\DB\ProjectPropertyDM.pas' {ProjPropertyDM: TDataModule},
  ScEncryptUnit in '..\Encrypt\ScEncryptUnit.pas',
  ScAuthFrm in '..\AF\ScAuthFrm.pas' {AuthorizeForm},
  CryptUtils in '..\Encrypt\CryptUtils.pas',
  ScEncryptEditions in '..\Encrypt\ScEncryptEditions.pas',
  ScHaspEncrypt in '..\Encrypt\ScHaspEncrypt.pas',
  ScHaspPwd in '..\Encrypt\ScHaspPWD.pas',
  ScSNSEncrypt in '..\Encrypt\ScSNSEncrypt.pas',
  fraFileManagerFrame in '..\MF\fraFileManagerFrame.pas' {FileManagerFrame: TFrame},
  ProjectManagerDM in '..\DB\ProjectManagerDM.pas' {ProjectMgrDM: TDataModule},
  ProjectFileManager in '..\CU\ProjectFileManager.pas',
  CustomDoc in '..\CU\CustomDoc.pas',
  fraBillsItemsFrame in '..\MF\fraBillsItemsFrame.pas' {BillsItemsFrame: TFrame},
  ImportExcel in '..\CU\ImportExcel.pas',
  DetailItemsDM in '..\DB\DetailItemsDM.pas' {DMDetailItems: TDataModule},
  ExportExcel in '..\CU\ExportExcel.pas',
  ExportExFrm in '..\AF\ExportExFrm.pas' {ExportExForm},
  LocateBillsDM in '..\DB\LocateBillsDM.pas' {BillsLocateDM: TDataModule},
  ProjectPropertyUnit in '..\CU\ProjectPropertyUnit.pas',
  ProjectPropertyThread in '..\CU\ProjectPropertyThread.pas',
  ProjectMergeSplitUnit in '..\CU\ProjectMergeSplitUnit.pas',
  BidLotDM in '..\DB\BidLotDM.pas' {BidLotDataModule: TDataModule},
  SingleObjectAggregateUnit in '..\CU\SingleObjectAggregateUnit.pas',
  BidLotAliasFrm in '..\AF\BidLotAliasFrm.pas' {BidAliasForm},
  FXQDManagerUnit in '..\CU\FXQDManagerUnit.pas',
  CommonIntfUnit in '..\CU\CommonIntfUnit.pas',
  FileOprUnit in '..\CU\FileOprUnit.pas',
  StdLibsManagerFrm in '..\AF\StdLibsManagerFrm.pas' {StdLibsManagerForm},
  ExportDecorateUnit in '..\CU\ExportDecorateUnit.pas',
  ScReportDM in '..\DB\ScReportDM.pas' {ReportData: TDataModule},
  ScProgressFrm in '..\MF\ScProgressFrm.pas' {ProgressFrm2},
  ScCustomSetErrorFrm in '..\MF\ScCustomSetErrorFrm.pas' {ScCustomSetErrorForm},
  ScReportsFrm in '..\Reports\UI\ScReportsFrm.pas' {ScReportsForm},
  ScWorkListFrm in '..\Reports\UI\ScWorkListFrm.pas' {ScWorkListForm},
  ReportAdjusterUnit in '..\Reports\Config\ReportAdjusterUnit.pas' {ReportAdjuster},
  CommonMessages in '..\..\SmartCost\Common\CommonMessages.pas',
  ScGatherProjFrm in '..\MF\ScGatherProjFrm.pas' {GatherProjForm};

{$R *.res}

var
  FlashWin: TflashFrm;
  sProcessName: string;

begin
  sProcessName := 'BillsEditor.exe'; // ExtractFileName(ParamStr(0));  
  if ProcessIsRunning(sProcessName) = 1 then
  begin
    Application.Initialize;
    FlashWin := TflashFrm.Create(nil);
    FlashWin.Show;
    FlashWin.Update;
    Application.Title := '×ݺáÇåµ¥±àÖƹÜÀíϵͳ';
    
    {$IFDEF _beEncrypt}
    if not IsDogExists then Application.Terminate;
    {$ENDIF}

    Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TReportAdjuster, ReportAdjuster);
  FlashWin.Hide;
    FlashWin.Free;
    Application.Run;
  end;
end.