delpih mutex - delphi 중복실행 방지

 program Project2; uses Forms, ShellApi,Windows, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas'; {$R *.res} const MUTEX_NAME = 'Mobile100'; 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.CreateForm(TForm1, Form1); Application.Run; end.