program exam;

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

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

begin
  Application.Initialize;
  Application.Title := '信息技術(shù)考試系統(tǒng)';
  hMutex:=createMutex(nil,false,'infoExam');  //生成互斥句柄
  Ret:=getlasterror;
  if ret<>Error_already_exists then
    begin
    Application.CreateForm(TfrmLogin, frmLogin);
    Application.Run;
    end
  else
    Application.MessageBox('考試系統(tǒng)已經(jīng)運行。', '信息', 64);
  releasemutex(hMutex);
end.