BillsEditor/Dpr/Pro/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},
  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},
  ExportDecorateUnit in '..\..\CU\ExportDecorateUnit.pas',
  CommonIntfUnit in '..\..\CU\CommonIntfUnit.pas',
  FXQDManagerUnit in '..\..\CU\FXQDManagerUnit.pas',
  StdLibsManagerFrm in '..\..\AF\StdLibsManagerFrm.pas' {StdLibsManagerForm},
  FileOprUnit in '..\..\CU\FileOprUnit.pas',
  ScReportDM in '..\..\DB\ScReportDM.pas' {ReportData: TDataModule},
  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},
  ScGatherProjFrm in '..\..\MF\ScGatherProjFrm.pas' {GatherProjForm},
  ScProgressFrm in '..\..\MF\ScProgressFrm.pas' {ProgressForm},
  ImportDecorate in '..\..\CU\ImportDecorate.pas',
  RecycleBinDM in '..\..\DB\RecycleBinDM.pas' {RecycleBinData: TDataModule},
  RecycleBinFrm in '..\..\AF\RecycleBinFrm.pas' {RecycleBinForm},
  ScConnectEncrypt in '..\..\..\SmartCost\netclient\ScConnectEncrypt.pas',
  ClientService in '..\..\..\SmartCost\netclient\ClientService.pas',
  CfgPort in '..\..\..\SmartCost\netclient\CfgPort.pas',
  CorrespondClient in '..\..\..\SmartCost\netclient\CorrespondClient.pas',
  EnctyptClientData in '..\..\..\SmartCost\netclient\EnctyptClientData.pas',
  ScEncryptUnit in '..\..\Encrypt\ScEncryptUnit.pas',
  ScPHPWeb in '..\..\..\SmartCost\MainModule\Model\ScPHPWeb.pas' {PHPWeb: TDataModule};

{$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);
  Application.CreateForm(TProgressForm, ProgressForm);
  FlashWin.Hide;
    FlashWin.Free;
    Application.Run;
  end;
end.