skyserver.dpr

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

program SkyServer;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {DataModule2: TDataModule},
  SplashForm in 'SplashForm.pas' {FrmSplash},
  Unit6 in 'Unit6.pas' {Form5},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {bkform},
  Unit10 in 'Unit10.pas' {setform},
  Unit11 in 'Unit11.pas' {reform},
  Reabout in 'Reabout.pas' {AboutBox};

{$R *.RES}

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

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDataModule2, DataModule2);
  finally
    FrmSplash.Free;
  end;

  Application.Run;
end.