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

Single Instance   Найти похожие ветки 

← →
aldapooh   (2003-09-17 12:09) [0]

Добрый день! Я проверяю является ли копия программы единственной в памяти. Не подскажете ли правльно ли я это делаю.
Вот фрагмент кода:

const
MutexName= "{58EDA565-89D7-4BAC-9DFC-D88D878C8CCC}";

var
Mutex: THandle;

function TheOnlyOne: boolean;
begin
Result:= True;
Mutex:= OpenMutex(MUTEX_ALL_ACCESS,False,MutexName);
if Mutex <> 0 then
Result:= False;
end;

{$R *.RES}

begin
Application.Initialize;
if TheOnlyOne then
begin
Mutex:= CreateMutex(nil,False,MutexName);
Application.ShowMainForm := False;
Application.CreateForm(TDataForm, DataForm);
Application.Run;
ReleaseMutex(Mutex);
end;
end.

Меня очень интеерсует нужно ли вызывать CloseHandle(Mutex) и вообще любые комментарии и рекомендации. Спасибо!

---

← →
MBo ©   (2003-09-17 12:22) [1]

в FAQ

---

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

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



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