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

made in programmersforum 3

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

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

24th
Сен

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

Posted by micher 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;