SmartCost/DPRs/Pro/SmartCost_Budget.dpr

program SmartCost_Budget;

{$R '..\..\res\uac.res' '..\..\res\uac.rc'}

uses
  FastMM4,
  Forms,
  Windows,
  SysUtils,
  ComObj,
  Registry,
  VCLFixPack,
  MainToolFrm in '..\..\MainUI\Forms\MainToolFrm.pas' {MainToolForm},
  ScBillsSubItemViews in '..\..\MainModule\UI\ScBillsSubItemViews.pas' {ScBillsSubItemView: TFrame},
  ScBillsViews in '..\..\MainModule\UI\ScBillsViews.pas' {ScBillsView: TFrame},
  ScRAdjustViews in '..\..\MainModule\UI\ScRAdjustViews.pas' {ScRAdjustView: TFrame},
  ScFeeRate in '..\..\MainModule\Model\ScFeeRate.pas' {ScFeeRates: TDataModule},
  ScFeeRateView in '..\..\SideModule\FeeRate\ScFeeRateView.pas' {frmFeeRateView: TFrame},
  BaseChildFrm in '..\..\MainUI\BaseMDIUI\BaseChildFrm.pas' {BaseChildForm},
  BaseMainFrm in '..\..\MainUI\BaseMDIUI\BaseMainFrm.pas' {BaseMainForm},
  ScMainFrm in '..\..\MainUI\Forms\ScMainFrm.pas' {ScMainForm},
  ScProjFrm in '..\..\MainUI\Forms\ScProjFrm.pas' {ScProjForm},
  ScRelaFiles in '..\..\MainModule\Model\ScRelaFiles.pas' {ScRelaFilesDM: TDataModule},
  ScTenderViews in '..\..\MainModule\UI\ScTenderViews.pas' {ScTenderView: TFrame},
  ScProjectGLJ in '..\..\MainModule\Model\ScProjectGLJ.pas' {ScProjGLJ: TDataModule},
  ScBillsGLJView in '..\..\MainModule\UI\ScBillsGLJView.pas' {ScFrmBillsGLJView: TFrame},
  ScDataModule in '..\..\MainModule\Model\ScDataModule.pas' {ScDM: TDataModule},
  ScBillsPrcElementView in '..\..\MainModule\UI\ScBillsPrcElementView.pas' {ScFrmBillsPrcElementView: TFrame},
  ScGLJGatherView in '..\..\MainModule\UI\ScGLJGatherView.pas' {ScFrmGLJGatherView: TFrame},
  ScGLJTypeFrm in '..\..\MainUI\Forms\ScGLJTypeFrm.pas' {ScGLJTypeForm},
  ScUnitPriceLibsUnit in '..\..\SideModule\UnitPrice\ScUnitPriceLibsUnit.pas' {ScUnitPriceLib: TDataModule},
  ScRAdjusts in '..\..\MainModule\Model\ScRAdjusts.pas' {ScRAdjustData: TDataModule},
  ProjectsDM in '..\..\MainUI\ProjectManage\ProjectsDM.pas' {ManageProjects: TDataModule},
  ScFeeRateLibsUnit in '..\..\SideModule\FeeRate\ScFeeRateLibsUnit.pas' {ScFeeRateLib: TDataModule},
  FeeCalculateUnit in '..\..\SideModule\FeeRate\FeeCalculateUnit.pas',
  ScBillsFairy in '..\..\MainModule\Expert\ScBillsFairy.pas' {ScBillsFairyView: TFrame},
  ScFileArchiver in '..\..\Common\ScFileArchiver.pas',
  ScFileProviders in '..\..\MainModule\Model\ScFileProviders.pas',
  ScFTViews in '..\..\MainModule\UI\ScFTViews.pas' {ScFTView: TFrame},
  ScFTBills in '..\..\MainModule\Model\ScFTBills.pas' {ScFTBillsData: TDataModule},
  ScStreamArchiver in '..\..\Common\ScStreamArchiver.pas',
  ScProjBaseDM in '..\..\MainModule\Model\ScProjBaseDM.pas' {ScProjBaseData: TDataModule},
  ScProjList in '..\..\MainModule\Model\ScProjList.pas',
  ScProjectsGather in '..\..\MainModule\Model\ScProjectsGather.pas' {ScProjGatherDM: TDataModule},
  ScProjGatherFrm in '..\..\MainModule\UI\ScProjGatherFrm.pas' {ScProjectGatherForm},
  ScProjectCompare in '..\..\MainModule\Model\ScProjectCompare.pas' {ScProjectCompareDM: TDataModule},
  ScProjectCompareFrm in '..\..\MainModule\UI\ScProjectCompareFrm.pas' {ScProjectCompareForm},
  WelcomeFrm in '..\..\MainUI\Forms\Forms.8\WelcomeFrm.pas' {WelcomeForm},
  ScProjectProportiesFrm in '..\..\MainUI\Forms\ScProjectProportiesFrm.pas' {ScProjectProportiesForm},
  ScOptionFrm in '..\..\MainUI\Forms\ScOptionFrm.pas' {ScOptionForm},
  ScReportsFrm in '..\..\Reports\UI\ScReportsFrm.pas' {ScReportsForm},
  AboutFrm in '..\..\MainUI\Forms\Forms.8\AboutFrm.pas' {AboutForm},
  ScCountPrices in '..\..\MainModule\Model\ScCountPrices.pas' {ScCountPriceData: TDataModule},
  ScDataSetWrappers in '..\..\MainModule\Model\ScDataSetWrappers.pas',
  ScExprs in '..\..\MainModule\Model\ScExprs.pas' {ScExprsData: TDataModule},
  ScGLJ in '..\..\MainModule\Model\ScGLJ.pas' {ScGLJData: TDataModule},
  ScProject in '..\..\MainModule\Model\ScProject.pas',
  ScRations in '..\..\MainModule\Model\ScRations.pas' {ScRationData: TDataModule},
  ScRationSQLExp in '..\..\MainModule\Expert\ScRationSQLExp.pas',
  ScBillsLibFrm in '..\..\MainModule\UI\ScBillsLibFrm.pas' {ScBillsLibForm},
  ScPerformFTFrm in '..\..\MainModule\UI\ScPerformFTFrm.pas' {ScPerformFTForm},
  FeeStdFrm in '..\..\SideModule\FeeRate\FeeStdFrm.pas' {FeeStdEditorForm},
  ScBrowseGLJFrm in '..\..\Common\ScBrowseGLJFrm.pas' {ScBrowseGLJForm},
  ScRationAssistant in '..\..\SideModule\Ration\ScRationAssistant.pas' {frmRationAssistant: TFrame},
  ScRationAssistantDM in '..\..\SideModule\Ration\ScRationAssistantDM.pas' {RationAssistantDM: TDataModule},
  AddNewGLJFrm in '..\..\Common\AddNewGLJFrm.pas' {AddNewGLJForm},
  ReportAdjusterUnit in '..\..\Reports\Config\ReportAdjusterUnit.pas' {ReportAdjuster},
  ScBills in '..\..\MainModule\Model\ScBills.pas' {ScBillsData: TDataModule},
  ExprsGraph in '..\..\Common\ExprsGraph.pas',
  ScConfig in '..\..\Common\ScConfig.pas',
  ScConsts in '..\..\Common\ScConsts.pas',
  ScEvaluate in '..\..\Common\ScEvaluate.pas',
  ScIDTree in '..\..\Common\ScIDTree.pas',
  ScMessage in '..\..\Common\ScMessage.pas',
  ScParser in '..\..\Common\ScParser.pas',
  ScUtils in '..\..\Common\ScUtils.pas',
  ScExprsEdt in '..\..\MainModule\UI\ScExprsEdt.pas' {ScExprsEditor},
  ScBillsTemplate in '..\..\MainModule\UI\ScBillsTemplate.pas' {ScBillsTemplateForm},
  ScEncryptUnit in '..\..\MainModule\Model\ScEncryptUnit.pas',
  ScFilterRation in '..\..\SideModule\Ration\ScFilterRation.pas' {ScFilterRationView: TFrame},
  ScFindRationFrm in '..\..\SideModule\Ration\ScFindRationFrm.pas' {ScFindRationForm},
  ScReportCompareFrm in '..\..\Reports\UI\ScReportCompareFrm.pas' {ScReportCompareForm},
  ScSelectBuildUnitFrm in '..\..\MainModule\UI\ScSelectBuildUnitFrm.pas' {ScSelectBuildUnitForm},
  ScMaterial in '..\..\MainModule\Model\ScMaterial.pas' {MaterialData: TDataModule},
  ScOpenAPI in '..\..\OpenAPI\ScOpenAPI.pas',
  ScMaterialRationExp in '..\..\MainModule\Expert\ScMaterialRationExp.pas',
  ScUpdateDataBase in '..\..\MainModule\Model\ScUpdateDataBase.pas',
  ScXMLConsts in '..\..\MainModule\Model\ScXMLConsts.pas',
  ScXMLSavers in '..\..\MainModule\Model\ScXMLSavers.pas',
  ScProjGLJGatherDM in '..\..\Reports\Model\ScProjGLJGatherDM.pas' {ScProjGLJGather: TDataModule},
  ScRCodeEdts in '..\..\MainModule\UI\ScRCodeEdts.pas',
  ScMaterialDataFrm in '..\..\MainModule\UI\ScMaterialDataFrm.pas' {ScMaterialDataForm},
  ScLocalGLJDM in '..\..\MainModule\Model\ScLocalGLJDM.pas' {LocalGLJ: TDataModule},
  ScMaterialXSFrm in '..\..\MainModule\UI\ScMaterialXSFrm.pas' {MaterialXSForm},
  ScCompareGLJFrm in '..\..\MainModule\UI\ScCompareGLJFrm.pas' {CompareGLJForm},
  WCImportTipFrm in '..\..\ImportAndExport\WCImportTipFrm.pas' {WCImportTipForm},
  ScProjProperty in '..\..\MainModule\Model\ScProjProperty.pas',
  ScNewProjFrm in '..\..\MainUI\Forms\ScNewProjFrm.pas' {ScNewProjForm},
  ScLoadMTTransFrm in '..\..\MainModule\UI\ScLoadMTTransFrm.pas' {LoadMTTransForm},
  ScStdLibs in '..\..\MainModule\Model\ScStdLibs.pas',
  ScMachine in '..\..\MainModule\Model\ScMachine.pas' {ScMachineData: TDataModule},
  ScAdvMsgDlg in '..\..\Common\ScAdvMsgDlg.pas' {AdvMsgDlg},
  ScAuthFrm in '..\..\MainUI\Forms\ScAuthFrm.pas' {AuthorizeForm},
  ScRationLibsUnit in '..\..\SideModule\Ration\ScRationLibsUnit.pas' {ScRationLib: TDataModule},
  ScProjectRationLibsUnit in '..\..\SideModule\Ration\ScProjectRationLibsUnit.pas' {ScProjectRationLib: TDataModule},
  ScRationLibsFrm in '..\..\SideModule\Ration\ScRationLibsFrm.pas' {ScRationLibsForm},
  ScRationLibManageView in '..\..\SideModule\Ration\ScRationLibManageView.pas' {ScRationLibManageFrm: TFrame},
  ScGLJTypeView in '..\..\MainModule\UI\ScGLJTypeView.pas' {GLJTypeView: TFrame},
  ScBuildProjectSaverUnit in '..\..\MainModule\Model\ScBuildProjectSaverUnit.pas',
  CommonMessages in '..\..\Common\CommonMessages.pas',
  ScCommonFeeDM in '..\..\MainModule\Model\ScCommonFeeDM.pas' {ScCommonFeesDM: TDataModule},
  ScInputAdjustXSFrm in '..\..\MainModule\UI\ScInputAdjustXSFrm.pas' {ScInputAdjustXSDialog},
  ScMtOrgPriceFileDM in '..\..\MainModule\Model\ScMtOrgPriceFileDM.pas' {MtOrgPriceFileDM: TDataModule},
  ScMtOrgPriceEditorFrm in '..\..\SideModule\UnitPriceEditor\ScMtOrgPriceEditorFrm.pas' {MtOrgPriceForm},
  ScBillsTree2 in '..\..\MainModule\Model\ScBillsTree2.pas',
  ScFeeTaxDM in '..\..\SideModule\UnitPrice\ScFeeTaxDM.pas' {FeeTaxDM: TDataModule},
  ScFeeTaxEditorFrm in '..\..\SideModule\UnitPriceEditor\ScFeeTaxEditorFrm.pas' {FeeTaxEditorForm},
  SbBidFile in '..\..\SbBills\SbBidFile.pas',
  SbBillsTree in '..\..\SbBills\SbBillsTree.pas',
  SbBillsFrm in '..\..\SbBills\SbBillsFrm.pas' {SbBillsForm},
  ScDataIntfDM in '..\..\MainModule\Model\ScDataIntfDM.pas' {DataInterface: TDataModule},
  ScProjectCompare_HLJ in '..\..\MainModule\Model\ScProjectCompare_HLJ.pas' {ScProjectCompareHLJDM: TDataModule},
  ScSetFeeTenderFrm in '..\..\MainModule\UI\ScSetFeeTenderFrm.pas' {SetFeeTenderForm},
  ScMtOrgBatchAddFrm in '..\..\MainModule\UI\ScMtOrgBatchAddFrm.pas' {MtOrgBatchAddForm},
  ScExportBuildProjectsFrm in '..\..\MainUI\Forms\ScExportBuildProjectsFrm.pas' {ExportBuildProjectsForm},
  ScShowRationsZeroQuantityFrm in '..\..\MainModule\UI\ScShowRationsZeroQuantityFrm.pas' {ShowRationsZeroQuantityForm},
  ScSelectBillsFrm in '..\..\Common\ScSelectBillsFrm.pas' {SelectBillsFrm},
  ScReportTempTables in '..\..\MainModule\Model\ScReportTempTables.pas',
  ScTablesUnit in '..\..\Common\ScTablesUnit.pas',
  ScUpdateLockFrm in '..\..\MainUI\Forms\ScUpdateLockFrm.pas' {UpdateLockForm},
  ScSelectGatherForm in '..\..\MainModule\UI\ScSelectGatherForm.pas' {SelectGatherForm},
  ScGLJTypesDM in '..\..\Common\ScGLJTypesDM.pas' {GLJTypeData: TDataModule},
  ScGLJLibs in '..\..\MainModule\Model\ScGLJLibs.pas' {GLJLib: TDataModule},
  ScGLJLibEditorFrm in '..\..\MainModule\UI\ScGLJLibEditorFrm.pas' {GLJLibEditorForm},
  ScWorkListFrm in '..\..\Reports\UI\ScWorkListFrm.pas' {ScWorkListForm},
  ScBigProjManageView in '..\..\MainUI\ProjectManage\ScBigProjManageView.pas' {ScfrmBigProjManage: TFrame},
  ScTypes in '..\..\Common\ScTypes.pas',
  ScFeeStdLibUnit in '..\..\SideModule\FeeRate\ScFeeStdLibUnit.pas' {ScFeeStdLibDM: TDataModule},
  ScProjectFeeRateLibsUnit in '..\..\SideModule\FeeRate\ScProjectFeeRateLibsUnit.pas' {ScProjectFeeRateLib: TDataModule},
  ScProjectUnitPriceLibsUnit in '..\..\SideModule\UnitPrice\ScProjectUnitPriceLibsUnit.pas' {ScProjectUnitPriceLib: TDataModule},
  ScBrowseRelaFilesFrm in '..\..\MainModule\UI\ScBrowseRelaFilesFrm.pas' {ScBrowseRelaFilesForm},
  ScSelectBuildProjectsFrm in '..\..\MainUI\Forms\ScSelectBuildProjectsFrm.pas' {SelectBuildProjectForm},
  ScParseFileInfo in '..\..\MainUI\ProjectManage\ScParseFileInfo.pas',
  ConcreteFrm in '..\..\MainModule\UI\ConcreteFrm.pas' {ConcreteForm},
  ScBlockNewLibFrm in '..\..\MainModule\UI\ScBlockNewLibFrm.pas' {ScBlockNewLibForm},
  ScBrowseProjectFileFrm in '..\..\MainModule\UI\ScBrowseProjectFileFrm.pas' {ScBrowseProjectFileForm},
  ScDigitConfig in '..\..\MainModule\Model\ScDigitConfig.pas',
  ScDigitManagerUnit in '..\..\MainModule\Model\ScDigitManagerUnit.pas',
  ScReNameFrm in '..\..\MainModule\UI\ScReNameFrm.pas' {ReNameForm},
  ScBillsInsPosFrm in '..\..\MainModule\UI\ScBillsInsPosFrm.pas' {ScBillsInsPosForm},
  ScRelateBillFrm in '..\..\MainModule\UI\ScRelateBillFrm.pas' {ScRelateBillForm},
  ScSearchAndReplaceView in '..\..\MainModule\UI\ScSearchAndReplaceView.pas' {frmSearchAndReplace: TFrame},
  ScQuestFrm in '..\..\MainModule\UI\ScQuestFrm.pas' {ScQuestForm},
  ScBlockManagerViews in '..\..\MainModule\UI\ScBlockManagerViews.pas' {FrmBlockManager: TFrame},
  ScBlockCloneQuestFrm in '..\..\MainModule\UI\ScBlockCloneQuestFrm.pas' {BlockCloneQuestForm},
  ScImportExcelTree in '..\..\MainModule\Excel\ScImportExcelTree.pas',
  ScDrawingQuantityDM in '..\..\MainModule\Model\Budget\ScDrawingQuantityDM.pas' {DrawingQuantityDM: TDataModule},
  ScRationSearch in '..\..\MainModule\UI\ScRationSearch.pas' {frmRationSearch: TFrame},
  ScHistoryProjectsDM in '..\..\MainModule\Model\ScHistoryProjectsDM.pas' {DMHistoryProjects: TDataModule},
  ScKindsOfTrees in '..\..\MainModule\Model\ScKindsOfTrees.pas',
  ScHistoryProjectsForm in '..\..\MainModule\UI\ScHistoryProjectsForm.pas' {HistoryProjectsFrm},
  ScBackUpManagerForm in '..\..\MainModule\UI\ScBackUpManagerForm.pas' {BackUpManagerFrm},
  ScRefrencePriceFrm in '..\..\MainModule\UI\ScRefrencePriceFrm.pas' {frmRefrencePrice},
  ScProjectAnalyseFrm in '..\..\MainModule\UI\ScProjectAnalyseFrm.pas' {ScProjectAnalyseForm},
  ScProjectAnalyse in '..\..\MainModule\Model\ScProjectAnalyse.pas' {ScProjectAnalyseDM: TDataModule},
  ScProjectCloneFrm in '..\..\MainModule\UI\ScProjectCloneFrm.pas' {ScProjectCloneForm},
  ScZeroBillsFrm in '..\..\MainModule\UI\ScZeroBillsFrm.pas' {ZeroBillsForm},
  ScElectricityCalcDM in '..\..\MainModule\Model\ScElectricityCalcDM.pas' {ElectricityCalcDM: TDataModule},
  ScMEFeeRateFrm in '..\..\MainModule\UI\ScMEFeeRateFrm.pas' {MEFeeRateForm},
  ScElectricityCalcFrm in '..\..\MainModule\UI\ScElectricityCalcFrm.pas' {ScElectricityCalcForm},
  ScBlockLibsUnit in '..\..\MainModule\Model\ScBlockLibsUnit.pas',
  ScMtTransInfoFrm in '..\..\MainModule\UI\ScMtTransInfoFrm.pas' {MtTransInfoForm},
  ScBlockLibSelectFrm in '..\..\MainModule\UI\ScBlockLibSelectFrm.pas' {ScBlockLibSelectForm},
  ScCustomMachineDM in '..\..\MainModule\Model\ScCustomMachineDM.pas' {ScCustomMachine: TDataModule},
  ScResolver in '..\..\MainModule\Excel\ScResolver.pas',
  ScCommonIntf in '..\..\MainModule\Excel\ScCommonIntf.pas',
  ScExcel in '..\..\MainModule\Excel\ScExcel.pas',
  ScExcelImEx in '..\..\MainModule\Excel\ScExcelImEx.pas',
  ScPersistentData in '..\..\MainModule\Model\ScPersistentData.pas',
  ScNodeRecycleBinDM in '..\..\MainModule\Model\ScNodeRecycleBinDM.pas' {NodeRecycleBinDM: TDataModule},
  ScImportHintFrm in '..\..\MainUI\Forms\ScImportHintFrm.pas' {ScImportHintForm},
  ScNodeRecycleBinForm in '..\..\MainModule\UI\ScNodeRecycleBinForm.pas' {NodeRecycleBinFrm},
  ScSelectProjectPackageFilesFrm in '..\..\MainUI\ProjectManage\ScSelectProjectPackageFilesFrm.pas' {SelectProjectPackageFilesForm},
  ScCustomConcreteDM in '..\..\MainModule\Model\ScCustomConcreteDM.pas' {ScCustomConcrete: TDataModule},
  ScBillsCtrls in '..\..\MainModule\Model\ScBillsCtrls.pas',
  ScTreesEx in '..\..\MainModule\Excel\ScTreesEx.pas',
  ScBatchRationDataFrm in '..\..\MainModule\UI\ScBatchRationDataFrm.pas' {BatchRationDataForm},
  ScPriceDiffDM in '..\..\MainModule\Model\ScPriceDiffDM.pas' {ScPriceDiffData: TDataModule},
  ScPriceDiffView in '..\..\MainModule\UI\ScPriceDiffView.pas' {frmPriceDiff: TFrame},
  ScPeriodSetupFrm in '..\..\MainModule\UI\ScPeriodSetupFrm.pas' {PeriodSetupForm},
  ScGLJExtendDM in '..\..\MainModule\Model\ScGLJExtendDM.pas' {GLJExtendDM: TDataModule},
  ScProjectGLJSelectFrm in '..\..\MainModule\UI\ScProjectGLJSelectFrm.pas' {ProjectGLJSelectForm},
  ScHelpFrm in '..\..\MainModule\UI\ScHelpFrm.pas' {HelpForm},
  ScBPInsPosFrm in '..\..\MainUI\ProjectManage\ScBPInsPosFrm.pas' {ScBPInsPosForm},
  ScWebSearchFrm in '..\..\MainModule\UI\ScWebSearchFrm.pas' {WebSearchFrm},
  ScPHPWeb in '..\..\MainModule\Model\ScPHPWeb.pas' {PHPWeb: TDataModule},
  ScStaticBills in '..\..\MainModule\Model\ScStaticBills.pas',
  ScBillsLibDM in '..\..\MainModule\Model\ScBillsLibDM.pas' {BillsLibData: TDataModule},
  ScBillsLibView in '..\..\MainModule\UI\ScBillsLibView.pas' {BillsLibView: TFrame},
  ScWebInformationFrm in '..\..\MainModule\UI\ScWebInformationFrm.pas' {ScWebInformationForm},
  ScJumpFrm in '..\..\MainModule\UI\ScJumpFrm.pas' {JumpForm},
  ScBillsDM in '..\..\MainModule\Model\ScBillsDM.pas' {ScBillsModule: TDataModule},
  ScBillsConsts in '..\..\MainModule\Model\ScBillsConsts.pas',
  BuildLoanDataUnit in '..\..\MainModule\Model\BuildLoanDataUnit.pas' {BuildLoanDM: TDataModule},
  ScLeafTrees in '..\..\MainModule\Model\ScLeafTrees.pas' {LeafTreesDM: TDataModule},
  ScBaseTreeDM in '..\..\MainModule\Model\ScBaseTreeDM.pas' {BaseTreeDM: TDataModule},
  ScGroundCompensateDM in '..\..\MainModule\Model\ScGroundCompensateDM.pas' {GCTreeDM: TDataModule},
  ScGroundCompensateFeeLib in '..\..\MainModule\Model\ScGroundCompensateFeeLib.pas' {GCFeeLib: TDataModule},
  ScBillsGradeDM in '..\..\MainModule\Model\ScBillsGradeDM.pas' {ScBillsGradeData: TDataModule},
  ScStdItemLibDM in '..\..\MainModule\Model\ScStdItemLibDM.pas' {ScStdItemLibData: TDataModule},
  ScProjCustomStepDM in '..\..\MainModule\Model\ScProjCustomStepDM.pas' {ScProjCustomStepData: TDataModule},
  ScCustomStepDM in '..\..\MainModule\Model\ScCustomStepDM.pas' {CustomStepDM: TDataModule},
  ScXMLPort in '..\..\MainModule\Model\ScXMLPort.pas',
  ScGroundCompBatchSetFrm in '..\..\MainModule\UI\ScGroundCompBatchSetFrm.pas' {GCBatchSetForm},
  ScGroundCompensateCoeFrm in '..\..\MainModule\UI\ScGroundCompensateCoeFrm.pas' {GroundCompensateCoeForm},
  ScAreaFrm in '..\..\MainModule\UI\ScAreaFrm.pas' {AreaForm},
  BuildLoanFrm in '..\..\MainModule\UI\BuildLoanFrm.pas' {BuildLoanForm},
  ScGetCompareFrm in '..\..\MainModule\UI\ScGetCompareFrm.pas' {GetSourceForm},
  ScTenderDM in '..\..\MainModule\Model\ScTenderDM.pas' {ScTenderData: TDataModule},
  ScTenderAlgorithm in '..\..\MainModule\Model\ScTenderAlgorithm.pas',
  ScBillsGradeView in '..\..\MainModule\UI\ScBillsGradeView.pas' {frmBillsGrade: TFrame},
  ScCustomSetErrorFrm in '..\..\MainModule\UI\ScCustomSetErrorFrm.pas' {ScCustomSetErrorForm},
  ScReportBuildProjCompareFrm in '..\..\Reports\UI\ScReportBuildProjCompareFrm.pas' {ScReportBPCompareForm},
  dsErrorNodeList in '..\..\dsInterface\dsErrorNodeList.pas',
  dsExportExcel in '..\..\dsInterface\dsExportExcel.pas',
  dsGatherControl in '..\..\dsInterface\dsGatherControl.pas',
  dsGatherDataFrm in '..\..\dsInterface\dsGatherDataFrm.pas' {GatherDataForm},
  dsGatherDm in '..\..\dsInterface\dsGatherDm.pas' {dsGatherData: TDataModule},
  dsGatherSelectFrm in '..\..\dsInterface\dsGatherSelectFrm.pas' {GatherSelectForm},
  dsGatherTree in '..\..\dsInterface\dsGatherTree.pas',
  dsGatherUnit in '..\..\dsInterface\dsGatherUnit.pas',
  dsGatherUtils in '..\..\dsInterface\dsGatherUtils.pas',
  CacheTree in '..\..\Common\CacheTree.pas',
  ScProjGLJCompare in '..\..\MainModule\Model\ScProjGLJCompare.pas',
  ScPriceDiffGather in '..\..\Reports\Model\ScPriceDiffGather.pas',
  ScPriceDiffGatherDm in '..\..\Reports\Model\ScPriceDiffGatherDm.pas' {PriceDiffGatherData: TDataModule},
  ScPriceDiffGatherTables in '..\..\Reports\Model\ScPriceDiffGatherTables.pas',
  ScPriceDiffGatherTree in '..\..\Reports\Model\ScPriceDiffGatherTree.pas',
  ScPriceDiffGatherSelectFrm in '..\..\Reports\UI\ScPriceDiffGatherSelectFrm.pas' {PriceDiffGatherSelectForm},
  ScMicroWebHintFrm in '..\..\MainModule\UI\ScMicroWebHintFrm.pas' {ScMicroWebHintForm},
  ScBidGradeFrm in '..\..\MainModule\UI\ScBidGradeFrm.pas' {ScBidGradeForm},
  ScBidGradeDM in '..\..\MainModule\Model\ScBidGradeDM.pas' {ScBidGrade: TDataModule},
  ScBatchReplaceBillsFrm in '..\..\MainModule\UI\ScBatchReplaceBillsFrm.pas' {BatchReplaceBillsForm},
  ScFeeCrossBlockFrm in '..\..\MainModule\UI\ScFeeCrossBlockFrm.pas' {FeeCrossBlockForm},
  ScProjManagerTree in '..\..\MainUI\ProjectManage\ScProjManagerTree.pas',
  ScBuildProjSelectFme in '..\..\MainUI\ProjectManage\ScBuildProjSelectFme.pas' {ScBuildProjSelectFrame: TFrame},
  ScReportHelperUnit in '..\..\Reports\UI\ScReportHelperUnit.pas',
  ScPriceMinusTaxFrm in '..\..\MainModule\UI\ScPriceMinusTaxFrm.pas' {ScPriceMinusTaxForm},
  ScPriceMinusTaxDm in '..\..\MainModule\Model\ScPriceMinusTaxDm.pas' {PriceMinusTaxData: TDataModule},
  CheckProjectDataFrm in '..\..\Debug\CheckProjectDataFrm.pas' {CheckProjectDataForm},
  NewSingleGLJFrm in '..\..\MainModule\UI\NewSingleGLJFrm.pas' {NewSingleGLJForm},
  ScXMLPortMap in '..\..\MainModule\Model\ScXMLPortMap.pas',
  ScNeiMengTransPriceFrm in '..\..\MainModule\UI\ScNeiMengTransPriceFrm.pas' {ScNeiMengTransPriceForm},
  ScReportSolutionFrm in '..\..\Reports\UI\ScReportSolutionFrm.pas' {RptSolutionFrm},
  ScSaveAsFileFrm in '..\..\MainUI\ProjectManage\ScSaveAsFileFrm.pas' {ScSaveAsFileForm},
  ScDeletedProjectsFrm in '..\..\MainModule\UI\ScDeletedProjectsFrm.pas' {ScDeletedProjectsForm},
  ScCorrectGLJDM in '..\..\MainModule\Model\ScCorrectGLJDM.pas' {ScCorrectGLJ: TDataModule},
  ScDeviceStdDataDM in '..\..\MainModule\Model\ScDeviceStdDataDM.pas' {ScDeviceStdData: TDataModule},
  ScReportPrjCollectFrm in '..\..\Reports\UI\ScReportPrjCollectFrm.pas' {ScReportPrjCollectFrm},
  ScAutoCodeFrm in '..\..\MainModule\UI\ScAutoCodeFrm.pas' {ScAutoCodeForm},
  ScEncryptEditions in '..\..\Common\ScEncryptEditions.pas';

{$R *.res}

// zhangyin 2021-05-24 启用大内存地址模式，配合FastMM，使用4GB内存，实际可用3.7GB ($0020 = LARGE_ADDRESS_AWARE)
{$SetPEFlags $0020}

var
  // 文件映射对象句柄
  ShareHandle: THandle;
  // 已运行实例的主窗体句柄
  PHWND: HWND;
  pData: PScShareMemory;
  SA: TSecurityAttributes;
  bWantAuthorize: Boolean;
  sToken, sInfo, sURL, sHint: string;
begin
  Application.Initialize;
  // 2020-09-24 InitConstsByDog要放在InitConsts前面
  InitConstsByDog;
  // 2020-08-14初始化常量从ScConsts.pas移到这里 
  InitConsts;
  ShowWelcome;

  // 2024-11-01 zhangyin 带锁版本需要访问服务器获取时间，将这两句提前到这里
  //G_URL := 'http://ol.smartcost.com.cn/';               // 从代码上看，只有网络版会用到此域名，所以暂不考虑非网络版。如果要考虑，则这一句挪到其它能通用的地方。
  PHPWeb.AnalyzeProtocol(ParamStr(1), sToken, G_URL);   // Z+启动，如果参数有传域名，则对 G_URL 进行覆盖

  PHWND := 0;
  SA.nLength := SizeOf(SA);
  SA.lpSecurityDescriptor := nil;
  SA.bInheritHandle := False;
  ShareHandle := CreateFileMapping($FFFFFFFF, @SA, PAGE_READWRITE,
    0, SizeOf(TScShareMemory), PChar(ScShareMemoryName));
  try
    // 已存在共享内存
    if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      pData := MapViewOfFile(ShareHandle, File_MAP_WRITE, 0, 0, 0);
      try
        if pData <> nil then
          PHWND := pData^.AppHandle;
        if IsWindow(PHWND) then
        begin
          if ParamCount > 0 then
            pData^.CmdStr := ParamStr(1);
          PostMessage(PHWND, SCM_SHOWMAINFORM, 0, 0);
          if ParamCount > 0 then
            PostMessage(PHWND, SCM_OpenFile, 0, 0);
        end;
      finally
        if pData <> nil then
          UnmapViewOfFile(pData);
      end;
      Halt;
    end
    // 尚未存在共享内存
    else
    begin
      Application.Title := '纵横SmartCost公路工程造价软件(估概预算版)';
      MainApp := Application;
      {$IFDEF _ScEncrypt}
      bWantauthorize := False;

      CreateEncryptLog;

      case OpenDog of
        CS_NeedAuthorize:
        begin
          CommonMessage(pmtError, [pmbOk], '您的试用时间已到，需要进行注册。');
          {MessageError(0, '您的试用时间已到，需要进行注册。'}
          {  + #13#10'详情请拨打海德软件注册电话：' + LoadAuthorizePhone + '。');}
          if not Authorize then
          begin
            HideWelcome;
            Halt;
          end;
        end;
        CS_NeedUpdate:
        begin
          CommonMessage(pmtHint, [pmbOk], '您的加密锁需要升级后才可使用。');
          if not UpdateLock then
          begin
            HideWelcome;
            Halt;
          end;
        end;
        CS_Error, CS_NoDog, CS_DogTypeError, CS_VerifyError:
        begin
          HideWelcome;
          CommonMessage(pmtError, [pmbOk], '没有检查到加密锁。'#13#10'请购买正版SmartCost。'
            + #13#10'如果插上加密锁后仍有问题，请拨打客服热线：' + LoadServicePhone + '。');
          {MessageError(0, '没有检查到加密锁。'#13#10'请购买正版SmartCost。'
            + #13#10'如果插上加密锁后仍有问题，请拨打客服热线：' + LoadServicePhone + '。');}
          Halt;
        end;

        // 2009-10-19 zhangyin 时间限制锁
        CS_EndDate:
        begin
          if (CommonMessage(pmtWarning, [pmbOk, pmbCancel],
          '您的使用时间已到，是否通过注册文件延长使用时间？') = pmOK) then
          begin
            if not Authorize then
            begin
              HideWelcome;
              Halt;
            end;
          end
          else
          begin
            HideWelcome;
            Halt;
          end;
        end;

        CS_CloseToLimitDate:
        begin
          CommonMessage(pmtHint, [pmbOk], '您的加密锁使用时间即将到期，如需延长使用时间，请联系客服中心。');
        end;

        CS_WantAuthorize:
          bWantAuthorize := True;
      end;
      if CheckDog = CS_VerifyError then
      begin
        HideWelcome;
        CommonMessage(pmtError, [pmbOk], '没有检查到加密锁。'#13#10'请购买正版SmartCost。'
          + #13#10'如果插上加密锁后仍有问题，请拨打客服热线：' + LoadServicePhone + '。');
        {MessageError(0, '没有检查到加密锁。'#13#10'请购买正版SmartCost。'
          + #13#10'如果插上加密锁后仍有问题，请拨打客服热线：' + LoadServicePhone + '。');}
        Halt;
      end;
      if CheckDog = CS_DogTypeError then
      begin
        HideWelcome;
        CommonMessage(pmtError, [pmbOk], '加密锁类型不正确，请检查。'
          + #13#10'如果插上加密锁后仍有问题，请拨打客服热线：' + LoadServicePhone + '。');
        {MessageError(0, '加密锁类型不正确，请检查。'
          + #13#10'如果插上加密锁后仍有问题，请拨打客服热线：' + LoadServicePhone + '。');}
        Halt;
      end;
      if bWantAuthorize then
        ShowADVMessage('感谢您购买SmartCost！'#13#10'目前本产品处于试用状态，需要进行注册。'#13#10+
          '了解详细信息请进入菜单“帮助”->“产品注册”。', '1');
      {$ENDIF}

      pData := MapViewOfFile(ShareHandle, File_MAP_WRITE, 0, 0, 0);
      try
        if pData <> nil then
        begin
          ZeroMemory(pData, SizeOf(TScShareMemory));
          pData^.AppHandle := Application.Handle;
        end;
      finally
        if pData <> nil then
          UnmapViewOfFile(pData);
      end;
    end;

    Application.CreateForm(TScMainForm, ScMainForm);
    BringWelcomeToTop;

    Application.Run;
  finally
    CloseHandle(ShareHandle);
    SaveDog;
  end;
end.