project1.dpr

来自「1」· DPR 代码 · 共 43 行

program Project1;

uses
  windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {dm},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  about in 'ABOUT.PAS' {frm_about},
  implemntation in 'implemntation.pas',
  Unit9 in 'Unit9.pas' {BakupDataBase},
  Unit10 in 'Unit10.pas' {RestoreDataBase},
  Unit11 in 'Unit11.pas' {Opertion},
  Manage_Users in 'Manage_Users.pas' {Form12};

{$R *.res}
//记下定义用来在启动时判断是否有另一个实例运行用
const classname='TForm5'; {声明为主窗体的类名}
var handle:integer; {变量}

begin
        {handle:=findwindow(classname,nil);//查找是否有此类的窗体
        if handle<>0 then
        begin
        messagebox(0,'本系统有一个正在运行中！','启动提示',0);//提示程序已运行
        halt; //退出程序
        end;//以上语句用来在启动时判断是否有另一个实例，如果有则停止当前程序运行
        }
  Application.Initialize;
  Application.CreateForm(Tform5, form5);
  form5.Show;
  Application.CreateForm(Tform2, form2);
  form2.ShowModal;
  Application.CreateForm(Tdm, dm);
  Application.Run;

end.