Listando todas as janelas (ou controles) filhas a partir do handle de uma janela pai

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

BOOL EnumChildWindows(          
  HWND hWndParent,
  WNDENUMPROC lpEnumFunc,
  LPARAM lParam
);

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// Função de Callback usada para listar todas as janelas
// filhas a partir do handle de uma janela pai
function EnumChildProc(wnd: HWND; Memo: TMemo): BOOL; stdcall;
var
  buf, caption: array[0..255] of char;
  id_control: Integer;
begin
  // vamos obter o nome da classe da janela filha
  GetClassName(wnd, buf, SizeOf(buf) - 1);

  // vamos obter o título da janela filha
  SendMessage(wnd, WM_GETTEXT, 256, Integer(@Caption));

  // vamos obter o ID da janela (ou controle) filha
  id_control := GetDlgCtrlID(wnd);

  // vamos adicionar as informações ao TMemo
  Memo.Lines.Add('ID: ' + IntToStr(id_control) + ' - ' +
    ' Classe: ' + buf + ' - Caption: ' + caption);

  // continue com a próxima janela
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;

  // vamos listar as janelas (ou controles) filhos a
  // partir do handle de uma janela pai. Aqui eu estou
  // passando o valor do handle. você pode consultar minhas
  // outras dicas nesta seção para aprender a obter o handle
  // de uma janela pai
  EnumChildWindows(3740682, @EnumChildProc, Integer(Memo1));
end;