exam.dpr

1

program exam;

uses
  Forms,
  //添加
  windows,sysutils,
  login in 'login.pas' {frmLogin};

{$R *.res}
  //添加
var
  hMutex:HWND;
  Ret:integer;

begin
  Application.Initialize;
  Application.Title := '信息技术考试系统';
  hMutex:=createMutex(nil,false,'infoExam');  //生成互斥句柄
  Ret:=getlasterror;
  if ret<>Error_already_exists then
    begin
    Application.CreateForm(TfrmLogin, frmLogin);
    Application.Run;
    end
  else
    Application.MessageBox('考试系统已经运行。', '信息', 64);
  releasemutex(hMutex);
end.