editorserver.dpr

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

program EditorServer;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Reabout in 'Reabout.pas' {AboutBox},
  Unit11 in 'Unit11.pas' {reform},
  Unit10 in 'Unit10.pas' {setform},
  SplashForm in 'SplashForm.pas' {FrmSplash},
  redunit in 'redunit.pas' {redform};

{$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(Tsetform, setform);
  finally
    FrmSplash.Free;
  end;
  Application.Run;
end.