Найти окно чужой программы по названию кнопки в окне

function EnumWindowsProc(hWnd: THandle; lParam: Integer): LongBool; stdcall;// поиск кнопки ЛО
var H,y: THandle;
begin
h:=0;
 y:=0;
  H := FindWindowEx(hWnd, 0, 'Button', 'Lo');
  y:=  FindWindowEx(hWnd, 0, 'edit', '');
  if H = 0 then begin
  EnumChildWindows(hWnd, @EnumWindowsProc, 0) ;
   
  end
      else
        begin
  SendMessage(y, WM_SETTEXT, 0, Integer(PChar('123')));
  SetForegroundWindow(h);
  postMessage(h,WM_LBUTTONDOWN,0, 0);
  postMessage(h,WM_LBUTTONUP,0, 0);
    postMessage(hWnd, WM_QUIT, 0, 0);
  end;
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var H, E, Parent: THandle;
begin
  H := FindChildWindow(0, '#32770', 'uDisk ToolBar', Parent);
  if H = 0 then
  begin
    ShowMessage('Window "uDisk ToolBar" not found :(');
    Exit;
  end;
  H := FindChildWindow(Parent, 'Button', 'Lo', Parent);
  if H = 0 then
  begin
    ShowMessage('Button not found :(');
    Exit;
  end;
  E := FindWindowEx(Parent, 0, 'Edit', '');
  if E = 0 then
  begin
    ShowMessage('Edit not found :(');
    Exit;
  end;
  SendMessage(E, WM_SETTEXT, 0, Integer(PChar('Hello')));
  SendMessage(H, BM_CLICK, 0, 0);
end;

{$B-}
type
  TFindChildWindowCheckProc = function(hWnd, Parent: THandle): Boolean;
 
function FindChildWindow(InWnd: THandle; const ClassName, Title: String; out Parent: THandle; FirstWinSearch: Boolean = True; CheckFunc: TFindChildWindowCheckProc = nil): THandle;
type
  TInfo = record
    H, P: THandle;
    Cls, Ttl: PChar;
    ChkFn: TFindChildWindowCheckProc;
  end;
type
  PInfo = ^TInfo;
 
  function EnumWindowsProc(hWnd: THandle; Info: PInfo): LongBool; stdcall;
  begin
    with Info^ do
    begin
      H := FindWindowEx(hWnd, 0, Cls, Ttl);
      if H = 0 then EnumChildWindows(hWnd, @EnumWindowsProc, LParam(Info))
      else if (@ChkFn <> nil) and not ChkFn(H, hWnd) then H := 0
      else P := hWnd;
      Result := (H = 0);
    end;
  end;
 
var Info: TInfo;
begin
  with Info do
  begin
    H := 0;
    Cls := PChar(ClassName);
    Ttl := PChar(Title);
    if FirstWinSearch then
    begin
      H := FindWindowEx(InWnd, 0, Cls, Ttl);
      if H <> 0 then
        if (@CheckFunc <> nil) and not CheckFunc(H, InWnd) then H := 0
        else P := InWnd;
    end;
    if H = 0 then
    begin
      P := 0;
      ChkFn := CheckFunc;
      EnumChildWindows(InWnd, @EnumWindowsProc, LParam(@Info));
    end;
    Result := H;
    if @Parent <> nil then Parent := P;
  end;
end;
 
function CheckParent(H, P: THandle): Boolean;
var S: PChar;
begin
  GetMem(S, 16);
  Result := (GetClassName(P, S, 16) <> 0) and (S = '#32770');
  FreeMem(S);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var H, E, Parent: THandle;
begin
  H := FindChildWindow(0, '#32770', 'uDisk ToolBar', Parent, False);
  if H = 0 then
  begin
    ShowMessage('Window "uDisk ToolBar" not found :(');
    Exit;
  end;
  H := FindChildWindow(Parent, 'Button', 'Lo', Parent, True, CheckParent);
  if H = 0 then
  begin
    ShowMessage('Button not found :(');
    Exit;
  end;
  E := FindWindowEx(Parent, 0, 'Edit', '');
  if E = 0 then
  begin
    ShowMessage('Edit not found :(');
    Exit;
  end;
  SendMessage(E, WM_SETTEXT, 0, Integer(PChar('Hello from TEST!')));
  SendMessage(H, BM_CLICK, 0, 0);
end;

H := FindChildWindow(Parent, 'Button', 'Lo', Parent, False, CheckParent);