gbtools.dpr

来自「界面精美」· DPR 代码 · 共 39 行

program GBTools;

uses
  Forms,
  main in 'MAIN.PAS' {Fmain},
  Unit1 in 'Unit1.pas' {FShow},
  Unit2 in 'Unit2.pas' {Form2},
  Myfunction in 'Myfunction.pas',
  UnitPT in 'UnitPT.pas' {FrmPT},
  UnitShutDown in 'UnitShutDown.pas' {FrmShutDown},
  UnitFormat in 'UnitFormat.pas' {FrmFormat},
  UnitAbout in 'UnitAbout.pas' {FrmAbout},
  UnitPrint in 'UnitPrint.pas' {FrmPrint},
  UnitSaveAs in 'UnitSaveAs.pas' {FrmSaveAsFile},
  UnitAbsRead in 'UnitAbsRead.pas' {FrmAbsRead},
  UnitHelp in 'UnitHelp.pas' {FrmHelp};

{$R *.res}

begin
  Application.Initialize;
  FShow:=TFShow.Create(application);
  FShow.Show;
  FShow.Update;
  Application.CreateForm(TFmain, Fmain);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TFrmPT, FrmPT);
  Application.CreateForm(TFrmShutDown, FrmShutDown);
  Application.CreateForm(TFrmFormat, FrmFormat);
  Application.CreateForm(TFrmAbout, FrmAbout);
  Application.CreateForm(TFrmPrint, FrmPrint);
  Application.CreateForm(TFrmSaveAsFile, FrmSaveAsFile);
  Application.CreateForm(TFrmAbsRead, FrmAbsRead);
  Application.CreateForm(TFrmHelp, FrmHelp);
  FShow.Close;
  FShow.Free;
  Application.Run;
end.