Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.03.2010, 10:32   #1
vixiv
 
Регистрация: 08.02.2009
Сообщений: 3
По умолчанию Я знаю способы как определить, что мое приложение запущено...

знаю как завершить какой-либо процессс...
но как мне сделать такое:
надо определить, что программа уже запущена и завершить этот процесс, а запускаемую копию продолжить выполнять.
vixiv вне форума Ответить с цитированием
Старый 07.03.2010, 13:40   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Мой способ. Всегда им пользовался:

Код:
CheckEvent: TEvent;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
CheckEvent:= TEvent.Create( nil, false, true, 'MYPROJECT_CHECKEXIST' );
If CheckEvent.WaitFor(10)<>wrSignaled then
begin
ShowMessage('Сколько можно запускать одну и ту же программу ?');
Halt;  // Вот тут сделайте закрытие предыдущего экземляра
end //else
...
mihali4 вне форума Ответить с цитированием
Старый 07.03.2010, 13:51   #3
ZuBy
Участник клуба
 
Аватар для ZuBy
 
Регистрация: 29.09.2008
Сообщений: 1,234
По умолчанию

дополнение
'MYPROJECT_CHECKEXIST' - тут индивидуальный текст для каждого приложения
ZuBy вне форума Ответить с цитированием
Старый 07.03.2010, 14:56   #4
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Код:
CheckEvent:= TEvent.Create( nil, false, true, 'MYPROJECT_CHECKEXIST' );
If CheckEvent.WaitFor(10)<>wrSignaled then
Можно вот это пояснить?
Нужно ли отлавливать этот event в приложении?
TwiX вне форума Ответить с цитированием
Старый 07.03.2010, 16:32   #5
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

???
Все уже отлавливается строкой
Код:
If CheckEvent.WaitFor(10)<>wrSignaled then
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Мое приложение жрет оперативку cowboy Общие вопросы Delphi 15 21.08.2009 15:20
Как определить, запущенно ли приложение? k1r1ch Общие вопросы Delphi 1 27.07.2009 12:20
Запущено ли приложение? Ash Общие вопросы Delphi 7 27.01.2009 08:09
Как проверить запущено приложение или нет? kiber0net0 Общие вопросы Delphi 2 18.09.2008 19:48