[РЕШЕНО] Запрет запуска второй копии программы

[Ash]

Господа, не могу вспомнить, как сабж... Напомните...Через WinApi или все едино. Чето-там через FindWindowEx...? , Да и в какое место этот код вставлять... )

Решений очень много ниже

[Altera]

Это лучше всего вставлять в файл проджекта (*.dpr) перед инициализацией приложений и созданием форм

var
h: HWND;
begin
   h := findWindow('{здесь вводишь имя класса окна, например tForm1, или оставляешь nil}', 
      {здесь вводишь заголовок окна (caption), например Form1, или оставляешь nil (если он может меняться)});
   if h <> 0 then exit;

   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
end.

[FaTaL]

Вот так тоже работает и не зависит от заголовка окна

Var HM :THandle;

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

begin
    // Проверка на запуск второй копии программы
    If Check then
    exit;
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

[Ash]

Спасибо, сэкономили время, которого ужасно мало

[mihali4]

Мой любимый способ:

CheckEvent: TEvent;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
CheckEvent:= TEvent.Create( nil, false, true, 'MYPROJECT_CHECKEXIST' );
If CheckEvent.WaitFor(10)<>wrSignaled then
begin
ShowMessage('Сколько можно запускать одну и ту же программу ?');
Halt;
end else
...

(Кстати, как и многое, описан в моей подписи. Зря не пользуетесь...)

в секцию uses вписать SynCobJs

[Altera]

А конкретней о tEvent? Где можно прочитать больше?

[mihali4]

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

А конкретней о tEvent? Где можно прочитать больше?

Методика получения знаний стандартная: пишем в юните "tEvent", ставим на нее курсор и жмем пимпу F1. Дельфи начинает рассказывать, а наше дело - внимать...

[Terran]

Я обычно использую такой способ:

Procedure OnlyOne;
Begin
CreateMutex(Nil, True, '999');
If GetLastError <> 0 Then
Begin
Halt;
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
OnlyOne;
End;

Код очень простой. Быстро выполняется и замечательно работает. Не требует никаких заголовков программы и ничего лишнего.

[Ash]

Блин, столько способов испробовать мне уже не позволит Камасутра времени... Попробую первый, WinAPI велик и добр...

[Новиков Сергей]

CheckEvent: TEvent;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
CheckEvent:= TEvent.Create( nil, false, true, 'MYPROJECT_CHECKEXIST' );
If CheckEvent.WaitFor(10)<>wrSignaled then
begin
ShowMessage('Сколько можно запускать одну и ту же программу ?');
Halt;
end else
...

Пожалуйста, оформляйте Ваш код согласно правилам.

в секцию uses вписать SynCobJs