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

[Пепел Феникса]

вылетает?
с какой ошибкой?
отладчиком проходили?

[Человек_Борща]

все просто:
достаточно работы с мьютексом(не однократно давали код. Однако не правильно использовали).

var
 hM:THandle;

function IsTwoInstance(aMutexName:String):boolean;
begin
  hM:=OpenMutex(MUTEX_ALL_ACCESS,False,PChar(aMutexName));
  Result:=(hM <> 0);
  if (hM = 0) then
  hM:=CreateMutex(nil,False,PChar(aMutexName));
end;

Если я правильно понял ваше "Вылетает", в смысле мгновенно закрывается, то:
в консольке(begin end) делаем так:

if IsTwoInstance('SomeName') then
begin
  Writeln('This is a copy');
  ReadLn;
end else
begin
  Writeln('To be continue...');
  ReadLn;
end;

Результат:

[Пепел Феникса]

Да и зачем ради 5 строк кода тащить windows в dpr?

он все равно тащится в итоге.

[veniside]

> а с кодом - вылетает

ошибка у вас, я вот только что убрал {$APPTYPE CONSOLE } и убрал WriteLn(), всё прекрасно работает. Как именно вылетает? что пишет?

> Однако не правильно использовали

пример от Человек_Борща имеет ненулевую вероятность запустить 2 или более копий. Может пора уже начать правильно использовать? )

[Lauri]

veniside

 if ( (ERROR_ALREADY_EXISTS = GetLastError()) or (ERROR_ACCESS_DENIED  = GetLastError()) ) then begin

тут останавливается нормально, а на строке

if (0 <> f_m) then CloseHandle(f_m);

уже вылетает(((


Человек_Борща у меня нету окна консольного приложения, я убра строку {$apptype console} .

[Человек_Борща]

Человек_Борща у меня нету окна консольного приложения, я убра строку {$apptype console} .

Молодец. Компилятор не получил указания о том, что за приложение ты пишешь.
Если ${APPTYPE CONSOLE}
Компилятор назнает поток ввода/вывода.
Если ${APPTYPE GUI}
то там уже общение с системой через сообщения.

А если нет ни того ни другого. То весь ввод/вывод ложится на программиста в целом.
Ввод делается при загрузке нсастроек из файлов. (В run-time ты не сможешь ничего вводить(Поток ввода отсутствует).
Ну разве что сам можешь его реализовать.)
Вывод делается в лог-файл.

Ну вообще тут только твоя фантазия, и работает. Я подсказал сымые простые методы.
Если хочешь чтобы работало без ${APPTYPE CONSOLE}, пиши в лог. А про Write/Read можешь забыть.

[veniside]

> А если нет ни того ни другого. То весь ввод/вывод ложится на программиста в целом.

боже, что за бред. Если явно не указан тип приложения, то по-умолчанию он GUI.

> уже вылетает(((

хм, странно это. Ну убери эту строчку, хендл и так закроется сам, в принципе. Не думаю, что в этой строке проблема, но попробуй.

[Пепел Феникса]

Человек_Борща

из обычных типов приложения есть лишь два типа, это консольное, которое сразу получает хендлы потоков STDIN,STDOUT,STDERR.
и оконное, которое их не получает(хотя и может получить, но само, по запросу(ну или есть кто передаст при создании)), при этом оконное не обязано иметь окон, но оно и не имеет автоматического консольного окна.
а функции Write/Read без указания файла, работают именно с STDIN и STDOUT.

[Aliens_wolfs]

Нужно было вам тему по другому назвать
не

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

а назвать наверное так:

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

Хотя функция запрета второго запуска должна работать в любых проектах.

Приложение без окон это другое понятие. Это работа в фоновом режиме.

Небольшой пример как можно работать без окон, именно в ресурсе проекта очищаешь все кроме названия и пишешь примерно так:

program Project1;

uses
//Здесь может быть прописан ваш созданный юнит
  windows;

{$R *.res}

 var
  HM: THandle;
AMsg: TMsg;

//Ваша процедура
Procedura MainFunct;
begin
//Ваш код
end;

//Известная нам процедура запрета второго запуска
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);
   //Здесь ваши действия
   //Работаем либо с системными сообщениями 
   //Либо перенаправляем все в работу процедуры в вашем юните, который создан и прописан в uses
  //Либо здесь что то делаем
  //Либо работа с вашей процедурой MainFunct, которая прописана выше.
      DispatchMessage(AMsg);
    end;
    Halt(AMsg.wParam);
end.