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

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

← →
aybolit66   (2005-09-01 11:53) [0]

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

---

← →
Ega23 ©   (2005-09-01 11:55) [1]


 ss:="Какое_нибудь_ключевое_слово";
 hnd:=CreateMutex(nil, false, PChar(ss) );
 if GetLastError = ERROR_ALREADY_EXISTS then
 begin
  Beep(100,200); //MessageBeep ->in WinProcs
  ReleaseMutex(hnd);
  Exit;
 end;

 Application.Initialize;
  .......


---

← →
aybolit66   (2005-09-01 12:07) [2]

Ega23, Спасибо! Работает.

---

← →
stone ©   (2005-09-01 12:09) [3]

var
 CheckEvent: TEvent;
begin
 CheckEvent := TEvent.Create(nil, false, true, "MYPROGRAM_CHECKEXIST");
 if not (CheckEvent.WaitFor(10) = wrSignaled) then
    // уже запущена

---

← →
aybolit66   (2005-09-01 12:50) [4]

stone, также благодарю! Твое решение на мой взгляд более универсальное.

---

← →
Юрий Зотов ©   (2005-09-01 13:36) [5]

А в качестве уникального имени удобно использовать полный путь к программе.

---

← →
Ega23 ©   (2005-09-01 13:46) [6]

2 Юрий Зотов ©   (01.09.05 13:36) [5]
А в качестве уникального имени удобно использовать полный путь к программе.

Тогда из другой директории можно вторую копию запустить

---

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

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



Память: 0.46 MB
Время: 0.042 c