taida.dpr

来自「一个项目工程监理系统的全部源码」· DPR 代码 · 共 33 行

program TaiDa;

uses
  Forms,
  FengMian in 'FengMian.pas' {FengMianForm},
  Main in 'Main.pas' {Mainform},
  DaZhuang in 'DaZhuang.pas' {DaZhuangForm},
  WenDang in 'WenDang.pas' {WenDangForm},
  MuLu in 'MuLu.pas' {MuLuForm},
  fengmian1 in 'fengmian1.pas' {fengmian1form},
  FengMian2 in 'FengMian2.pas' {FengMian2Form},
  GuanYu in 'GuanYu.pas' {GuanYuForm};

{$R *.RES}
  var i: integer;
begin
  Application.Initialize;
  FengMianForm := TFengMianForm.Create(Application);
  FengMianForm.Show;
  for i:=0 to 1000000 do
    FengMianForm.Update;
  Application.CreateForm(TMainform, Mainform);
  Application.CreateForm(TDaZhuangForm, DaZhuangForm);
  Application.CreateForm(TWenDangForm, WenDangForm);
  Application.CreateForm(TMuLuForm, MuLuForm);
  Application.CreateForm(Tfengmian1form, fengmian1form);
  Application.CreateForm(TFengMian2Form, FengMian2Form);
  Application.CreateForm(TGuanYuForm, GuanYuForm);
  FengMianForm.Hide;
  FengMianForm.Free;
  Application.Run;
end.