Скачать: CL | DM;

Запущена ли программа?   Найти похожие ветки 

← →
Slava V.   (2002-09-27 17:59) [0]

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

---

← →
Digitman ©   (2002-09-27 18:30) [1]

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


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

---

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

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

---

← →
Olphi ©   (2002-09-27 23:02) [3]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c