Como usar a função FindWindow() da API do Windows para retornar o handle de uma determinada janela de alto-nível

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

HWND FindWindow(          
  LPCTSTR lpClassName,
  LPCTSTR lpWindowName
);

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

procedure TForm1.Button1Click(Sender: TObject);
var
  hNotepadWindow: HWND;
begin
  hNotepadWindow := FindWindow('notepad', nil);
  ShowMessage('O handle da janela é: ' + IntToStr(hNotepadWindow));
end;

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

procedure TForm1.Button1Click(Sender: TObject);
var
  hNotepadWindow: HWND;
  tituloJanela: array[0..255] of Char;
  tamTituloJanela: Integer;
begin
  hNotepadWindow := FindWindow('notepad', nil);
  tamTituloJanela := 256; 

  // vamos fechar a janela com o handle obtido
  // primeiro obtemos o título da janela a ser fechada
  GetWindowText(hNotepadWindow, tituloJanela, tamTituloJanela);
  ShowMessage('Vou fechar a janela do Bloco de Notas com o título: ' +
     tituloJanela);
  // vamos fechar a janela
  SendMessage(hNotepadWindow, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

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

procedure TForm1.Button1Click(Sender: TObject);
var
  hNotepadWindow: HWND;
  classeJanela: array[0..255] of Char;
  tamClasseJanela: Integer;
begin
  // vamos localizar e fechar uma janela baseado apenas em seu título
  hNotepadWindow := FindWindow(nil, 'Sem título - Bloco de notas');
  tamClasseJanela := 256;

  // encontramos a janela?
  if hNotepadWindow <> 0 then
    begin
      // vamos obter o nome de classe da janela
      GetClassName(hNotepadWindow, classeJanela, tamClasseJanela);

      // vamos perguntar ao usuário se ele deseja mesmo fechar a janela
      if Application.MessageBox(PChar('Deseja mesmo fechar a janela com o nome de classe: ' +
        classeJanela + '?'), 'Fechar', MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = ID_YES then

        begin
          // vamos fechar a janela
          SendMessage(hNotepadWindow, WM_SYSCOMMAND, SC_CLOSE, 0);
        end;
    end
  else
    begin
      ShowMessage('Não foi possível obter o handle da janela');
    end;
end;