Скачать: CL | DM;

Запуск программы в одном экземпляре   Найти похожие ветки 

← →
ВоваВова   (2005-11-10 15:07) [0]

Добрый день! Подскажите пожалуйста, как корректно проверить - запущена уже моя программа или нет (необходимо, чтобы работал только один ее экземпляр). Спасибо.

---

← →
oleg_v   (2005-11-10 15:25) [1]

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.075 c