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

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

Запущена ли программа? [D6, WinME, Win2k, WinXP]

Slava V. ©   (2002-09-27 17:59:00) 

Как узнать запущена-ли программа с определенным именем на этом компе? Причем есть только имя этой программы и больше никакой инфы о названии классов (для FindWindow) и т.п. нет.

---

Olphi   (2002-09-27 23:02:00) [1]

var
Wnd : hWnd;
buff: ARRAY [0..127] OF Char;
zap:boolean;
begin
zap:=false;
Wnd := GetWindow(Handle, gw_HWndFirst);
WHILE Wnd <> 0 DO
BEGIN
IF (Wnd <> Application.Handle) AND (GetWindow(Wnd, gw_Owner) = 0) AND
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) THEN
BEGIN
GetWindowText(Wnd, buff, sizeof(buff));
if StrPas(buff) = "Прога" then zap:=true;
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
END;
if zap then Showmessage ("Прога запущена!");
end;

---

Slava V.   (2002-09-27 19:53:00) [2]

С именем приложения - например "Internet Explorer".
Имя экзешника тоже есть.

---

Digitman   (2002-09-27 18:30:00) [3]

> программа с определенным именем


Что есть "с определенным именем" ? С заданным именем EXE-файла ? Или что-то иное ? Программа - понятие растяжимое)...

---

Наверх