award.dpr

来自「商场活动抽奖系统,无需控件,可以正常使用.」· DPR 代码 · 共 31 行

program award;

uses
  Forms,
  UMain in 'UMain.pas' {frmMain},
  UPlay in 'UPlay.pas',
  UInit in 'UInit.pas' {frmInit},
  UPublic in 'UPublic.pas',
  UPInit in 'UPInit.pas',
  UList in 'UList.pas',
  UFlash in 'UFlash.pas' {frmFlash},
  UInfo in 'UInfo.pas' {frmInfo},
  UAward in 'UAward.pas' {frmAward},
  UAbort in 'UAbort.pas' {frmAbort};

{$R *.res}

begin
  Application.Initialize;
  frmFlash:=TfrmFlash.create(Application);
  frmFlash.show;
  frmFlash.update;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmInit, frmInit);
  Application.CreateForm(TfrmFlash, frmFlash);
  Application.CreateForm(TfrmInfo, frmInfo);
  Application.CreateForm(TfrmAward, frmAward);
  Application.CreateForm(TfrmAbort, frmAbort);
  Application.Run;
end.