Recuperar o Título de uma janela aberta - Dica Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (1)

Veja nesta dica como pegar o título de uma janela ativa com Delphi.



Olá galera, nesta dica irei mostrar como pegar o título de uma janela aberta no Windows.

 

Vamos montar o exemplo:

1 Timer

1 ListBox

 



Criaremos agora uma function para poder pegar o caption de todas as janelas abertas.

 

function TFrmPrincipal.TituloAtivo: string;

var

Handle: THandle;

Len: LongInt;

Title: string;

begin

  Result := '';

  Handle := GetForegroundWindow;

if Handle <> 0 then

begin

Len := GetWindowTextLength(Handle) + 1;

SetLength(Title, Len);

GetWindowText(Handle, PChar(Title), Len);

Result := TrimRight(Title);

end;

end;

 

No Evento onTimer do Timer1

 

procedure TFrmPrincipal.Timer1Timer(Sender: TObject);

begin

  ListBox1.Items.Add(TituloAtivo);

end;

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br



 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?