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

made in programmersforum 4

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

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

10th
Янв

Перебор окон, поиском нужного по параметрам

Posted by Chas under Delphi

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

Пепел Феникса

type

  TWindowInf=class

  WindowHWND:HWND;

  WindowClassFull:string;

  WindowTitleFull:string;

  WindowTextFull:string;

  WindowBtnTextFull:string;

  end;

  //PWindowInf=^TWindowInf;   объекты храняться по ссылке итак, нет нужды в обьявлении указателя на указатель на объект.
var

  Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
function GetClassName(h:THandle):string;//она удобнее:)

begin

 SetLength(Result,512);

 SetLength(REsult,GetClassName(h,@Result[1],512));//тут @ может не нужно, не помню.
function EnumProc(aHwnd:HWND; lParam:LPARAM):LongBool;stdcall;//где stdcall был?

var

  ClassName:string;

  P:TWindowInf;

begin

  P:=TWindowInf(lParam);

  Classname:=GetClassName(aHwnd);

  Result:=false;//предполагаем что нашли, значит(если не else) дальше искать не надо

  if ClassName=P.WindowClassFull

      then P.WindowHWND:=aHwnd

      else Result:=true;//если не нашли ничего, то продолжаем поиск

end;
function FindWindowByThis(aClass,aTitle,aText,aBtnText:string):TWindowInf;

var

 Wnd:TWindowInf;

begin

   Wnd:=TWindowInf.Create;//лучше напишите конструктор классу

   Wnd.WindowClassFull:=Aclass;

   wnd.WindowTitleFull:=aTitle;

   wnd.WindowTextFull:=aText;

   wnd.WindowBtnTextFull:=aBtnText;

   wnd.WindowHWND:=0;

   if EnumWindows(@EnumProc,LPARAM(Wnd)) then

   Result:=Wnd;

end;