Запрет запуска второй копии программы

Posted by Chas under Delphi

Напомните…Через 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.

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

...

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

Procedure OnlyOne;

Begin

CreateMutex(Nil, True, '999');

If GetLastError <> 0 Then

Begin

Halt;

End;

End;

Procedure TForm1.FormCreate(Sender: TObject);

Begin

OnlyOne;

End;

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

тема на форуме

Похожие статьи

• Как получить данные с чужой программы в свою?
• Проверить запущен ли процесс
• Открыть несколько файлов из проводника
• Как послать текст в Блокнот?
• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Определить центр чужого окна
• Сплеш (окно загрузки программы)
• Handle окна по файлу EXE
• При нажатии кнопки открыть сайт
• Как в другом окне кликнуть на кнопку