personaldatacollection.dpr

来自「面对纵多的各种各样的资料」· DPR 代码 · 共 24 行

program PersonalDataCollection;

uses
  Forms,
  MainUnit in 'MainUnit.pas' {MainFrm},
  AboutUnit in 'AboutUnit.pas' {AboutFrm},
  InputUnit in 'InputUnit.pas' {InputFrm},
  SplashUnit in 'SplashUnit.pas' {SplashFrm};

{$R *.res}

begin
  Application.Initialize;
  SplashFrm:=TSplashFrm.Create(Application);
  SplashFrm.Show;
  SplashFrm.Update;
  Application.Title := '个人资料收集';
  Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TInputFrm, InputFrm);
  SplashFrm.Hide;
  SplashFrm.Free;
  Application.Run;
end.