Главная страницаОбратная связьКарта сайта

Запретить запуск второго экземпляра программы

В Windows 95, по-моему, это самый простой работающий вариант. Этот текст должен находиться в модуле проекта (добраться до него можно через меню View/Project Source).


program Project1;

uses
  Forms,
  Windows, // не забудьте эту строчку
  Unit1 in "Unit1.pas" {Form1};

  {$R *.RES}

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

begin
  if Check then
    Exit;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Запретить запуск второго экземпляра программы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info