Запретить второй запуск программы. Приложение без окон

[Lauri]

Сабж. Без подключения в uses компонента формы.
Все примеры что находил в инете юзали окна

[veniside]

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
    // запустились
  finally
    CloseHandle(f_m);
  end;
end.

[Lauri]

begin
     f_m := CreateMutex(nil, true, 'sysproc12');
  if ( (ERROR_ALREADY_EXISTS = GetLastError()) or (ERROR_ACCESS_DENIED  = GetLastError()) ) then begin
    //
    if (0 <> f_m) then CloseHandle(f_m);

  end
  else try
//тело программы
 finally
    CloseHandle(f_m);
  end;

Программа просто вылетает

[Epiffan]

Попробуй вот так, правда я использую его для оконных программ

uses  Windows;

var
  HM: THandle;
function Check: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyProgram');
  Result := (HM <> 0);
  if HM = 0 then
   HM := CreateMutex(nil, false, 'MyProgram');
end;

begin
  if Check then Exit;
end.

[Lauri]

Сообщение от Epiffan

Попробуй вот так, правда я использую его для оконных программ

uses  Windows;

var
  HM: THandle;
function Check: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyProgram');
  Result := (HM <> 0);
  if HM = 0 then
   HM := CreateMutex(nil, false, 'MyProgram');
end;

begin
  if Check then Exit;
end.

странно... тупо вылетает

[Aliens_wolfs]

А ты куда этот код вставляешь?
Его нужно в ресурсы проекта вставлять program Project1;

Примерно так

program Project1;

uses
  windows;

{$R *.res}

 var
  HM: THandle;
AMsg: TMsg;

function Check: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyProgram');
  Result := (HM <> 0);
  if HM = 0 then
   HM := CreateMutex(nil, false, 'MyProgram');
end;

begin
  if Check then Exit;

//А дальше наверное это если без окон работаете
while (GetMessage(AMsg, 0, 0, 0)) do
    begin
      //Запускаем цикл обработки сообщений
      TranslateMessage(AMsg);
      DispatchMessage(AMsg);
    end;
    Halt(AMsg.wParam);

//Или же это если с формами работаете
 Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[veniside]

> Программа просто вылетает
> странно... тупо вылетает

ну так может проблема в программе, а не в нашем коде )
Вот полный проект, ничего никуда не вылетает. В течении 3-х секунд после запуска одной копии остальные копии тихо выходят:

{$APPTYPE CONSOLE }

uses
  Windows;

var
  f_m: THandle;
begin
  f_m := CreateMutex(nil, true, 'sysproc12');
  if ( (ERROR_ALREADY_EXISTS = GetLastError()) or (ERROR_ACCESS_DENIED  = GetLastError()) ) then begin
    //
    if (0 <> f_m) then CloseHandle(f_m);

  end
  else try
    //
    WriteLn('Hi there!');
    Sleep(3000);
  finally
    CloseHandle(f_m);
  end;
end.

Да, и в коде от Epiffan и Aliens_wolfs есть ненулевая вероятность, что запустится 2 или больше копий.

[Lauri]

Понял в чём проблема.
У меня нету строки {$APPTYPE CONSOLE } так как программа работает в тихом режиме. Из-за этого и вылетает сразу.

Только как в таком случаи поступить?

[veniside]

Каком ещё тихом режиме? ) Без главного окна? И консоль вам не нужна?
Ну так не вызывайте WriteLn() и прочие команды, ожидающие консольный ввод-вывод, и не будет ничего вылетать.

[Lauri]

Сообщение от veniside

Каком ещё тихом режиме? ) Без главного окна? И консоль вам не нужна?
Ну так не вызывайте WriteLn() и прочие команды, ожидающие консольный ввод-вывод, и не будет ничего вылетать.

Дык вот именно что не вызываю, и без приведённого кода выше всё работает, а с кодом - вылетает.