40 lines
1.1 KiB
ObjectPascal
40 lines
1.1 KiB
ObjectPascal
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.
|