Отслеживание двойного запуска Опции

[Unconnected]

Нужно встроить в программу проверку, не запущена ли уже эта её копия. В гугле это есть, но.. осложняется тем, что теоретический дабл-запуск будет как бы фор-кликом, то есть мгновенно после первого запуска. И видимой формы тоже нет..

[Unconnected]

var

  f_m: THandle;	// mutex
begin
  f_m := CreateMutex(nil, true, srMutexName);
  if ( (ERROR_ALREADY_EXISTS = GetLastError()) or (ERROR_ACCESS_DENIED  = GetLastError()) ) then begin
    if (0 <> f_m) then CloseHandle(f_m);
    MessageBox('Another instance is already running');
  end
  else try
    Application.Initialize;
    ...
    Application.Run;
  finally
    CloseHandle(f_m);
  end;
end.

Нашёл такой код (это в .dpr), нормальный? Мессадж что-то не вылетает.

Сообщение отредактировано: Unconnected - 25.06.2011 23:13