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

[Unconnected]

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

[IUnknown]

Мессадж что-то не вылетает.

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

const
   srMutexName = 'VOLVO_APP_VERY_LONG_ID_STRING'; // Тут на самом деле была еще пара десятков цифр

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(0, 'Another instance is already running', 'Error', MB_OK);
  end
  else try
    MessageBox(0, 'test', 'test', MB_OK);
    //Application.Initialize;
    // ...
    //Application.Run;
  finally
    CloseHandle(f_m);
  end;
end.

Вылетает сообщение о том, что приложение уже запущено, при Quad-клике... А вот насчет необходимости ERROR_ACCESS_DENIED я бы поспорил... Если у тебя нет доступа к мьютексу - значит, у тебя и на его установку нет доступа, ты можешь и при запуске первой копии нарваться на сообщение, что "уже запущено"...