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

Кто знает альтернативу 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]

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

---

← →
Rule ©   (2004-03-31 17:21) [4]

>panov ©   (31.03.04 16:31) [3]
если все писать то до конца жизни не хватит ...

---

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

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



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