sky.dpr

来自「本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过」· DPR 代码 · 共 31 行

program sky;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  REMain1 in 'REMain1.pas' {MainForm},
  Reabout in 'Reabout.pas' {AboutBox},
  SplashForm in 'SplashForm.pas' {FrmSplash},
  sendUnit in 'sendUnit.pas' {Dform},
  handUnit in 'handUnit.pas' {handForm};

{$R *.RES}

begin
  FrmSplash := TFrmSplash.Create( Application );
  try
    FrmSplash.Show;
    FrmSplash.Update;       { Handle any Pending Paint Messages }

 Application.Initialize;
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TMainForm, MainForm);
  finally
    FrmSplash.Free;
  end;
  Application.Run;
end.