Aprenda a usar a função EnumWindows() da API do Windows para listar todas as janelas de alto-nível abertas no momento

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

BOOL EnumWindows(          
  WNDENUMPROC lpEnumFunc,
  LPARAM lParam
);

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

BOOL CALLBACK EnumWindowsProc(          
  HWND hwnd,
  LPARAM lParam
);

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

// função de Callback usada para listar as fontes de
// uma determinada família de fontes
function EnumWindowsProc(Wnd: HWND; memo: TMemo): BOOL; stdcall;
const
  MyMaxName = 256;
  MyMaxText = 256;
var
  ClassName: string;
  WindowText: string;
begin
  // vamos obter o nome de classe da janela
  SetLength(ClassName, MyMaxName);
  SetLength(ClassName, GetClassName(Wnd, PChar(ClassName),
    MyMaxName));

  // vamos obter o título da janela
  SetLength(WindowText, MyMaxText);
  SetLength(WindowText, SendMessage(Wnd, WM_GETTEXT, MyMaxText,
    lParam(PChar(WindowText))));

  // vamos exibir apenas as janelas que contenham título
  if WindowText <> '' then
    begin
      memo.Lines.Add('Nome da classe: ' + ClassName + ' - Título: ' +
        WindowText + ' - Handle: ' + IntToStr(Wnd));
    end;

  // vamos passar para a próxima janela
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos listar todas as janelas de alto-nível em um TMemo
  EnumWindows(@EnumWindowsProc, lParam(Memo1));
end;