запуск одного экземпляра приложения

← →
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, также благодарю! Твое решение на мой взгляд более универсальное.

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

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

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

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