stuscore.dpr

来自「一小的学生成绩管理系统,是学习DELPHI的好资料.」· DPR 代码 · 共 30 行

program StuScore;

uses
  Forms,
  SysUtils,
  MainFrm in 'MainFrm.pas' {MainForm},
  QueryFrm in 'QueryFrm.pas' {QueryForm},
  CharFrm in 'CharFrm.pas' {ChartForm},
  AddNewFrm in 'AddNewFrm.pas' {AddNewForm},
  ParamFrm in 'ParamFrm.pas' {ParamForm},
  frame in 'FRAME.PAS' {Frame1: TFrame},
  AboutFrm in 'AboutFrm.pas' {AboutForm},
  ShorCutFrm in 'ShorCutFrm.pas' {ShortCutForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.Tag:=0;
  AboutForm:=TAboutForm.Create(AboutForm); 
  AboutForm.Show;
  AboutForm.Update;//强制更新封面
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TChartForm, ChartForm);
  While AboutForm.Tag<>13 do
    Application.ProcessMessages;

  Application.Run;
end.