project1.~dpr

学员管理的软件

program Project1;

uses
  Forms,
  windows,
  messages,
  Main in 'Main.pas' {DataModule2: TDataModule},
  submain in 'submain.pas' {Form1},
  st_sx in 'st_sx.pas' {Form2},
  sj_first in 'sj_first.pas' {Form3},
  sj_second in 'sj_second.pas' {Form4},
  sj_third in 'sj_third.pas' {Form5},
  sj_four_rand in 'sj_four_rand.pas' {T_txtj},
  sj_four_man in 'sj_four_man.pas' {Form7},
  sj_zero in 'sj_zero.pas' {Form8},
  yh_new in 'yh_new.pas' {Form10},
  yh_sel in 'yh_sel.pas' {zh_cx},
  yh_propertity in 'yh_propertity.pas' {hy_pro},
  login in 'login.pas' {form_logon},
  flash in 'flash.pas' {splash},
  P_word_set in 'P_word_set.pas' {word_set},
  P_backup_db in 'P_backup_db.pas' {P_backup},
  P_DB_manage in 'P_DB_manage.pas' {F_about},
  P_qr_report in 'P_qr_report.pas' {P_sj_report},
  P_st_insert in 'P_st_insert.pas' {st_insert},
  P_st_oper in 'P_st_oper.pas' {st_oper},
  P_st_update in 'P_st_update.pas' {st_update},
  Global in 'Global.pas' {Tglobal},
  graphic_exam in 'graphic_exam.pas' {F_exam_graphic},
  other_graphic in 'other_graphic.pas' {F_other_graphic},
  report_st in 'report_st.pas' {F_report_st},
  report_sj in 'report_sj.pas' {F_report_sj},
  U_prn_set in 'U_prn_set.pas' {F_prn_set},
  U_global_setting in 'U_global_setting.pas' {F_setting},
  U_tip in 'U_tip.pas' {F_tip_form},
  P_which_key in 'P_which_key.pas' {F_which_key},
  P_brower_exam in 'P_brower_exam.pas' {F_brower_exam};

//{$R *.TLB}

{$R *.res}
const
cm_restore=wm_user+$1000;
myappname='project1';
var
myhandle:HWND;
begin
  myhandle:=findwindow(myappname,nil);
  if myhandle>0 then
  begin
    messagebox(0,'软件已经在运行中！','消息',0);
    postmessage(myhandle,cm_restore,0,0);
    exit;
  end;
  Application.Initialize;
  Splash:=Tsplash.Create(application);
  splash.Show;
  splash.Update;
  Application.Title := '远程教育考试平台';
  Application.CreateForm(Tform_logon, form_logon);
  Application.CreateForm(TF_prn_set, F_prn_set);
  Application.CreateForm(TF_setting, F_setting);
  Application.CreateForm(TF_tip_form, F_tip_form);
  Application.CreateForm(TF_which_key, F_which_key);
  Application.CreateForm(TF_brower_exam, F_brower_exam);
  splash.ProgressBar1.Progress:=1;
  Application.CreateForm(TDataModule2, DataModule2);
  splash.ProgressBar1.Progress:=4;
  Application.CreateForm(Tst_oper, st_oper);
  splash.ProgressBar1.Progress:=7;
  Application.CreateForm(Tst_update, st_update);
  splash.ProgressBar1.Progress:=10;
  Application.CreateForm(TTglobal, Tglobal);
  splash.ProgressBar1.Progress:=13;
  Application.CreateForm(TF_exam_graphic, F_exam_graphic);
  splash.ProgressBar1.Progress:=16;
  Application.CreateForm(TF_other_graphic, F_other_graphic);
  splash.ProgressBar1.Progress:=19;
  Application.CreateForm(TF_report_st, F_report_st);
  splash.ProgressBar1.Progress:=22;
  Application.CreateForm(TF_report_sj, F_report_sj);
  splash.ProgressBar1.Progress:=25;
  Application.CreateForm(TForm1, Form1);
  splash.ProgressBar1.Progress:=28;
  Application.CreateForm(TForm2, Form2);
  splash.ProgressBar1.Progress:=31;
  Application.CreateForm(TForm3, Form3);
  splash.ProgressBar1.Progress:=35;
  Application.CreateForm(TForm4, Form4);
  splash.ProgressBar1.Progress:=40;
  Application.CreateForm(TForm5, Form5);
  splash.ProgressBar1.Progress:=45;
  Application.CreateForm(TT_txtj, T_txtj);
  splash.ProgressBar1.Progress:=50;
  Application.CreateForm(TForm7, Form7);
  splash.ProgressBar1.Progress:=55;
  Application.CreateForm(TForm8, Form8);
  splash.ProgressBar1.Progress:=60;
  Application.CreateForm(TForm10, Form10);
  splash.ProgressBar1.Progress:=70;
  Application.CreateForm(Tzh_cx, zh_cx);
  splash.ProgressBar1.Progress:=82;
  Application.CreateForm(Thy_pro, hy_pro);
  splash.ProgressBar1.Progress:=86;
  Application.CreateForm(Tword_set, word_set);
  splash.ProgressBar1.Progress:=92;
  Application.CreateForm(TP_backup, P_backup);
  splash.ProgressBar1.Progress:=93;
  Application.CreateForm(TF_about, F_about);
  splash.ProgressBar1.Progress:=95;
  Application.CreateForm(TP_sj_report, P_sj_report);
  splash.ProgressBar1.Progress:=97;
  Application.CreateForm(Tst_insert, st_insert);
  splash.ProgressBar1.Progress:=100;
  //Application.CreateForm(Tsplash, splash);
  splash.Free;
  Application.Run;
end.