![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программа
Дима2 © (2002-04-04 13:11:00)Как узнать что моя программа уже запущена?
Fantasist (2002-04-04 21:28:00) [1]А вот тут недавно классную статью об этом прочитал:
http://rsdn.ru/article/?baseserv/avins.xml
SergeyB (2002-04-04 13:59:00) [2]Более универсальный способ - создать mutex (см. CreateMutex(..) в справке по SDK)
LazorenkoX (2002-04-04 13:23:00) [3]Удобно использовать главную форму (TfmMain). В таком случае ты не ошибёшься если программа запущена из другой папки или уже есть программа с таким екзешником как твой.:
uses
Windows, Forms;
var
h: LongInt
h := FindWindow("TfmMain", nil)
if h > 0 then begin
SetForegroundWindow(h) //Показываем запущенную копию
Halt;
end else //не запущена
panov (2002-04-04 13:20:00) [4]http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988619824&n=15