Слежение за программой

← →
BoxTer © (2003-10-03 12:25) [0]

Доброе время суток.
У меня возникла такая трабла: например работает фотошоп(или другое), параллельно работает моя прога, как мне в ней поймать в некий момент времени заголовки всех открытых окон в фотошопе?
Заранее благодарен.

← →
Zergling © (2003-10-03 12:37) [1]

Статьи и FAQ

← →
BoxTer © (2003-10-03 13:02) [2]

да вот роюсь, не могу найти...

← →
Юрий Зотов © (2003-10-03 13:50) [3]

Один из вариантов.

Вначале один раз:
FindWindow(Ex) - находим главное окно программы.
GetWindowThreadProcessID - запоминаем ID ее процесса.

Теперь в нужный момент вызываем EnumWindows, а в callback"е вызываем GetWindowThreadProcessID, проверяя окно на принадлежность к тому же процессу. Если да - посылаем WM_GETTEXT. Все.

← →
Erik (2003-10-03 15:47) [4]

Было бы полезно кинуть такой вариант в кладовку, в свое время я тоже искал и тоже ненашол.

← →
BoxTer © (2003-10-03 21:08) [5]

sendmessage возвращает значение 0, а мне нуно строку - имя окна. Как в итоге, например, затолкать значение в Label1 ?
Если не трудно, как мне правильно написать sendmesage в этом случае?

← →
BoxTer © (2003-10-04 18:56) [6]

Могет кто-нибудь может примерчик коротенький кинуть...

← →
False_Delirium © (2003-10-05 08:58) [7]

EnumChildWindows

> sendmessage возвращает значение 0, а мне нуно строку - имя
> окна.

А хэлп читать не пробовали по WM_GETTEXT???

function GetTextFromWindow(hWnd: HWND): string;
var
TextLength: Integer;
Text: PChar;
begin
TextLength := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
if TextLength = 0 then Result := ""
else
begin
GetMem(Text, TextLength + 1);
SendMessage(hWnd, WM_GETTEXT, TextLength + 1, longint(Text));
Result := Text;
FreeMem(Text);
end;
end; // End of function GetTextFromWindow

А как вычислить, что hWnd, передаваемое в sendmessage принадлежит именно дочернему окну многооконного интерфейса?

По классу.

Слежение за программой Найти похожие ветки