[Delphi] Mutex로 중복실행 방지

프로젝트의 dpr 파일에서 하는게 제일 좋은 듯.

const
  MUTEX_NAME='ImageInsertion';

var
  mMutex: DWORD;

begin
  Application.Initialize;

  // Mutex 열기
  mMutex:=OpenMutex(MUTEX_ALL_ACCESS, False, MUTEX_NAME);

  // 만약 이미 열린 Mutex가 있다면 실행중지
  if mMutex<>0 then Exit;

  // 없다면 Mutex를 하나 만들면서 시작
  mMutex:=CreateMutex(nil, True, PWideChar(MUTEX_NAME));
  
  Application.MainFormOnTaskbar:=True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;