Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Янв

Найти окна с определенным словосочетанием

Posted by Chas under Delphi

Как найти окно с заранее известным текстом — это ясно, а вот как найти окно с определенным словом в этом тексте.

tozter
Сделал оцените:

wnd := GetWindow(handle, gw_hwndfirst);

while wnd <> 0 do

  begin

  if (wnd <> Application.Handle)

  and IsWindowVisible(wnd)

  and (GetWindow(wnd, gw_owner) = 0)

  and (GetWindowText(wnd, buff, SizeOf(buff)) <> 0) then

    begin

      GetWindowText(wnd, buff, SizeOf(buff));

      for W := 1 to MaxNameWin do

        begin

            position := AnsiPos('progname'), StrPas(buff));

            if position <> 0 then

             PostMessage(wnd, WM_CLOSE, 1,0);

             CloseWindow(wnd);

        end;

    end;

wnd := GetWindow(wnd, gw_hwndnext);

end;