Не могу найти список всех окон. Мне нужно найти все окна "О программе" программы блокнот. Их около 10 шт.
Ищу так.
Код:
Wd1:=FindWindow(nil, 'О программе'); // Найдем первое окно верхнего уровня любого класса
for i:=1 to 1500 do // Если такое окно существует
Begin
SetLength(s, SendMessage(wd1, WM_GETTEXTLENGTH, 0, 0)+1);
SendMessage(wd1, WM_GETTEXT, length(s), Integer(PChar(s)));
SetLength(s, lStrLen(PChar(s)));
if s='О программе' then
begin
if (GetWindowRect(wd1,Rect) = true) and (rect.Left>(200)) then
begin
Мучаем окно
end;
Ищет 2-3 окна "О программе" и все. Я как понял я не с начала ищу, а как начать поиск с начала?
В чужом окне есть картинка в image, как зная хэндл окна вытащить её?