⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 sesytem.dpr

📁 《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热风炉进行 热平衡计算、传热模拟、燃烧优化、操作优化等设计。 本软件用Dephi6.0编写
💻 DPR
字号:
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.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -