kaoshi.dpr

源代码竟供大家参考

program Kaoshi;

uses
  Forms,
  Controls,
  windows,
  MainU in 'MainU.pas' {FrmMain},
  LoginU in 'LoginU.pas' {FrmLogin},
  dmU in 'dmU.pas' {DmGlobal: TDataModule},
  LockU in 'LockU.pas' {FrmLock},
  GlobalU in 'GlobalU.pas';

{$R *.res}

var
  hMutex: THandle;
begin
  hMutex := CreateMutex(nil,false,'OneCopyMutex');
  if WaitForSingleObject(hMutex,0)<> wait_timeout then
  begin
    Application.Initialize;
    Application.Title := '现场勘查基础知识考试系统';
  Application.CreateForm(TDmGlobal, DmGlobal);
  FrmLogin := TFrmLogin.Create(Application);
    if FrmLogin.ShowModal() <> mrOK then exit;
    Application.CreateForm(TFrmMain, FrmMain);
    Application.Run;
  end
  else
    MessageBox(Application.Handle,'已有 现场勘察基础知识考试系统 在运行','提示',64);
end.