Кто знает альтернативу JustOne ?

← →
Rule © (2004-03-31 16:00) [0]

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

← →
panov © (2004-03-31 16:06) [1]

function isRunning(aUniqueString:String): Boolean;
var
hMutex: THandle;
begin
Result := False;
hMutex := CreateMutex(nil,False,PChar(aUniqueString));
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Result := True;
CloseHandle(hMutex);
end;
end;

Добавляешь в файл проекта, вызываешь перед Applicaton.Initialize:

if isRunning("Это мой крутая прога!") then Exit;

← →
Rule © (2004-03-31 16:11) [2]

>panov © (31.03.04 16:06) [1]
да это я и сам знаю, вот для кой каких целей вот это нада компоненту, может самому написать ?

← →
panov © (2004-03-31 16:31) [3]

Ну так напиши... не так сложно это...

Кто знает альтернативу JustOne ? Найти похожие ветки