test.dpr

来自「合成实验的上位机程序」· DPR 代码 · 共 46 行

program Test;

uses
  Forms,
  Main in 'Main.pas' {MainFrm},
  ParaAdd in 'ParaAdd.pas' {ParaAddFrm},
  ParaData in 'ParaData.pas' {ParaDataFrm},
  Splash in 'Splash.pas' {SplashFrm},
  TestControl in 'TestControl.pas' {TestControlForm},
  TestVer in 'TestVer.pas' {TestVerFrm},
  WaveView in 'WaveView.pas' {WaveViewFrm},
  SelfCheck in 'SelfCheck.pas' {SelfCheckFrm},
  SPort in 'SPort.pas' {SPortFrm},
  Help in 'Help.pas' {HelpFrm},
  Data in 'Data.pas' {DataFrm};

{$E .exe}

{$R *.res}


begin
  //***************启动画面*******************//
  SplashFrm:=TSplashFrm.Create(Application);
  SplashFrm.Show;
  SplashFrm.Update;
  //******************************************//
  Application.Initialize;
  Application.Title := '合成试验';
  Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TParaAddFrm, ParaAddFrm);
  Application.CreateForm(TParaDataFrm, ParaDataFrm);
  Application.CreateForm(TSplashFrm, SplashFrm);
  Application.CreateForm(TTestControlForm, TestControlForm);
  Application.CreateForm(TTestVerFrm, TestVerFrm);
  Application.CreateForm(TWaveViewFrm, WaveViewFrm);
  Application.CreateForm(TSelfCheckFrm, SelfCheckFrm);
  Application.CreateForm(TSPortFrm, SPortFrm);
  Application.CreateForm(THelpFrm, HelpFrm);
  Application.CreateForm(TDataFrm, DataFrm);
  SplashFrm.Hide;
  //******************************************//
  Application.Run;
  SplashFrm.Free;
end.