mainappname.~dpr

来自「很不错的软件请使用」· ~DPR 代码 · 共 35 行

program MainAppName;

uses
  Forms,
  MainFormUnit in 'MainFormUnit.pas' {Mainform},
  MainDataModule in 'MainDataModule.pas' {DM: TDataModule},
  login_unit in 'login_unit.pas' {login},
  logo_unit in 'logo_unit.pas' {logo},
  people_unit in 'people_unit.pas' {people},
  PeopledataUnit in 'PeopledataUnit.pas' {PeopleData},
  searchs_unit in 'searchs_unit.pas' {searchs},
  printView in 'printView.pas' {PrintV},
  mypreview_unit in 'mypreview_unit.pas' {mypreview},
  abouts in 'abouts.pas' {about},
  PrintCard in 'PrintCard.pas' {PrintC},
  OptionUnit in 'OptionUnit.pas' {OptionFrm},
  loginworks in 'loginworks.pas' {loginwork},
  ChartFrmUnit in 'ChartFrmUnit.pas' {ChartFrm};

{$R *.res}

begin
  logo:=Tlogo.Create(application);
  logo.Show;
  logo.Update;
  Application.Initialize;
  Application.CreateForm(TMainform, Mainform);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TPrintV, PrintV);
  logo.Gauge1.Progress:=100;
  logo.Update;
  logo.free;
  Application.Run;
end.