program NeolKIOSK;

uses
  Windows,
  Vcl.Forms,
  Editor in 'Editor.pas' {frmEditor},
  uKiosk in 'uKiosk.pas' {fKiosk},
  uDM in 'uDM.pas' {DM: TDataModule},
  uKioskView in 'uKioskView.pas' {fKioskView},
  uConfirmMessage in 'uConfirmMessage.pas' {fConfirmMessage},
  NeolTestMain in 'NeolTestMain.pas' {frmNeolTestMain},
  uAlertMessage in 'uAlertMessage.pas' {fAlertMessage},
  uLogManagerThread in 'uLogManagerThread.pas';

{$R *.res}
const
  MUTEX_NAME = 'NeolKIOSK';
var
  mMutex: THandle;

begin
  // mutex ¿­±â
  mMutex := OpenMutex(MUTEX_ALL_ACCESS, False, MUTEX_NAME);
  // mutex ÀÌ¹Ì ÀÖ´Ù¸é ½ÇÇà ÁßÁö
  if mMutex <> 0 then Exit;
  // ¾øÀ¸¸é mutex¸¸µé°í ½ÃÀÛ
  mMutex := CreateMutex(nil, True, MUTEX_NAME);

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfKiosk, fKiosk);
  Application.CreateForm(TfrmEditor, frmEditor);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TfKioskView, fKioskView);
  Application.CreateForm(TfConfirmMessage, fConfirmMessage);
  Application.CreateForm(TfrmNeolTestMain, frmNeolTestMain);
  Application.CreateForm(TfAlertMessage, fAlertMessage);
  Application.Run;
end.