33 lines
794 B
ObjectPascal
33 lines
794 B
ObjectPascal
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.
|