Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Программа


Дима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


Наверх

Титульная страница Поиск, карта сайта Написать письмо