В общем пишу прогу. Она при повторном запуске должна закрывать свою уже запущенную копию. Делал проверку по заголовкам окон и <>Application.handle - но она , собака, все равно закрывает себя, а не уже запущенную копию. Так вот, как получить список PID привязанный к заголовкам окон? Или может какой-нить другой способ решения есть?

Starr
а не проще не запускать новую копию?

stargaz0r
Я это делаю, чтобы работало с гирдером. Нажимаешь на кнопочку на пульте 1 раз в программе такие-то параметры, нажимаешь второй, другие, третий -третьи, и по кругу. Функция Sleep на центрах и телевизорах 15,30,90 мин, отмена и заново 15,30,90. Так что надо запускать...

Starr

Кажется была функция GetThreadProcessID();

Neo A.D.
Что-то нету в хелпе... Есть GetThreadPriority, но это из другого леса...
А какой к ней Uses?

Starr

используй ф-и toolhelp api

stargaz0r Куда ты меня послал ?
Я не программер - мне надо подробнее рассказывать...

Чтобы не геморроится, напишит программу - запускалку - она то точно будет знать - запущена твоя или нет. Или, например, FindWindow используй на событие Form1.Create - твое окно еще не будет создано и Handle будет либо твоей копии, либо не будет вообще.

Starr
на http://www.rsdn.ru набери в поиске toolhelp

Mike-L Использую FindWindow и закрывается вторая копия, а надо, чтобы первая.

Starr

и


Что-то не состыковывается.
Ну значить так. Один вариант есть. Первая прога запускается и пишет в реестр свой HWND, вторая при запуске отсылает SendMessage на закрнытие первой и прописывает свой HWND в реестр и так далее

Ray Adams Все состыковывается - я учусь программить. Образование - схемотехник. Структурно все себе представляю, алгоритмы легко составляю, но сам язык не знаю.
Что-то ты недопонял - прога одна, название одно (т.е. заголовок окна). Надо при запуске второй копии закрывать первую. Я так понимаю это можно сделать только зная номер процесса.
Нафига в реестре мусорить. Я пишу все в файл (пока на винте, потом буду думать, как его в оперативке держать)

Starr Недопонял ты. Читай пост Ray Adams еще раз.

Все решено:
Ф-я GetWindow(Application.Handle, gw_HWndFirst) возвращает pid
Хе-хе, всем спасибо

Добавлено спустя 16 минут, 3 секунды:
Что-то не закрывается...
var Wnd : hWnd;
-------------
Wnd := GetWindow(Application.Handle, gw_HWndFirst);
------------
sendmessage(Wnd, WM_QUIT, 0, 0);

Что я сделал не так?

Господа!
А не проще ли создавать мютекс?
При запуске, программа смотрит на наличие мьютекса, если он существует, то
посылаешь процессц-владельцу SIGTERM и создаешь мьютекс по новой.

Starr Сделай так как я написал

Ray Adams
Только писать имеет смысл в динамическую ветвь реестра.. Так аккуратнее и правильней.

А при чем тут это?

Притом. Значение хэндла - динамический параметр.
И по-хорошему, храниить его между сеансами работы не иммет никакого смысла.
Вот для таких параметров и предназначена динамическая ветвь реестра.
Это скоре на уровне рекомендаций от Мелкомягких, чем требование

1. Получить PID (Process Identifier) по HWND: GetWindowThreadProcessId
2. Найти окно HWND поиском/перебором: FindWindow/EnumWindows.

stargaz0r И в самом деле, принято поднимать старую копию (если она минимизирована, к примеру) в видимое состояние и завершаться. Хотя черт знает, что автору вопроса на самом деле надо.

Учитывая следующий пассаж:

Starr

Что все таки надо 1 или 2? Или еще чего третье.

MSDN - подробностей на несколько гигабайт.


Не хорошо слать WM_QUIT, не по науке это. Принято WM_CLOSE засылать.


GetWindow в принципе не может PID вернуть, только HWND. Ты не путаешь чего?