Запуск программы в одном экземпляре

← →
ВоваВова (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.

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