Запущена ли программа?

← →
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".
Имя экзешника тоже есть.

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;

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