Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c