program NeolKIOSK_BtStyle;

uses
  Windows,
  Vcl.Forms,
  NeolTestMain in 'NeolTestMain.pas' {frmNeolTestMain},
  Editor in 'Editor.pas' {frmEditor},
  uKiosk in 'uKiosk.pas' {fKiosk},
  uDM in 'uDM.pas' {DM: TDataModule};

{$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(TfrmNeolTestMain, frmNeolTestMain);
  Application.CreateForm(TfrmEditor, frmEditor);
  Application.CreateForm(TDM, DM);
  Application.Run;
end.