sesytem.dpr

来自「《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热」· DPR 代码 · 共 53 行

program SESytem;



uses
  Forms,
  SysUtils,
  Windows,
  SESytemMDI in 'SESytemMDI.pas' {SESystemMDIForm},
  Balance in 'Balance.pas' {BalanceForm},
  Analog in 'Analog.pas' {AnalogForm},
  Improve in 'Improve.pas' {ImproveForm},
  New in 'New.pas' {NewForm},
  Flash in 'Flash.pas' {FlashForm},
  About in 'About.pas' {AboutForm},
  Gas in 'Gas.pas' {GasForm},
  InHeat in 'InHeat.pas' {InHeatForm},
  OutHeat in 'OutHeat.pas' {OutHeatForm},
  Regenerator in 'Regenerator.pas' {RegeneratorForm},
  Operation in 'Operation.pas' {OperationForm},
  Burning in 'Burning.pas' {BurningForm},
  Declare in 'Declare.pas',
  DisplayBalance in 'DisplayBalance.pas' {DisplayBalanceForm},
  AnalogSet in 'AnalogSet.pas' {AnalogSetForm},
  DisplayAnalog in 'DisplayAnalog.pas' {DisplayAnalogForm};

var tempform:TFlashForm;
{$R *.res}

begin
  Application.Initialize;
  tempform:=TFlashForm.Create(nil);
  tempform.Show;
  tempform.Update;
  Sleep(3000);
  Application.HelpFile := 'I:\MySelf\SESytem\hlp\SESYSTEM.HLP';
  Application.Title := 'SESystem节能模拟系统';
  Application.CreateForm(TSESystemMDIForm, SESystemMDIForm);
  Application.CreateForm(TNewForm, NewForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TGasForm, GasForm);
  Application.CreateForm(TInHeatForm, InHeatForm);
  Application.CreateForm(TOutHeatForm, OutHeatForm);
  Application.CreateForm(TRegeneratorForm, RegeneratorForm);
  Application.CreateForm(TOperationForm, OperationForm);
  Application.CreateForm(TBurningForm, BurningForm);
  Application.CreateForm(TDisplayBalanceForm, DisplayBalanceForm);
  Application.CreateForm(TAnalogSetForm, AnalogSetForm);
  Application.CreateForm(TDisplayAnalogForm, DisplayAnalogForm);
  tempform.Free;
  Application.Run;
end.