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

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

Как отследить запуск приложения? [D7, XP]

lobach ©   (2006-12-10 20:35:00) 

Здравствуйте, подскажите как отследить запуск приложения, если известен заголовок окна?

---

RASkov   (2006-12-11 00:32:00) [1]

> [2] antonn ©   (11.12.06 00:13)

И Interval как можно меньше...Получится игрулина "успей закрыть все мессаги"

> [0] lobach ©   (10.12.06 20:35)

Подумай над [1]. Без ShowMessage может, что и выйдет

---

Kostafey   (2006-12-11 00:19:00) [2]

> жестокий пример:)

:)
це: М. Краснов "OpenGL. Графика в проектах Delphi"

---

antonn   (2006-12-11 00:13:00) [3]

Kostafey ©   (10.12.06 23:34) [1]
If H <> 0 then ShowMessage ('Есть Form1!') // окно найдено
else ShowMessage ('Нет Form1!') // окно не найдено
жестокий пример:)

---

Kostafey   (2006-12-10 23:34:00) [4]

Что имеется в виду под заголовком окна ?
Если известно название типа главного окна то, наверное что-то вроде того:


procedure TForm1.Timer1Timer(Sender: TObject);
var
H : HWND; // ссылка на окно
begin
H := FindWindow ('TForm1', 'Form1'); // ищем окно
If H <> 0 then ShowMessage ('Есть Form1!') // окно найдено
else ShowMessage ('Нет Form1!') // окно не найдено
end;


---

Наверх