Pegar o Caption da Janela Ativa

Delphi

28/07/2004

Gostaria de uma rotina para poder pegar o caption da janela ativa, de qualquer programa, assim que fosse mudado o foco de um aplicativo para outro eu gostaria de receber o caption num memo, tem como???


Demolitor

Demolitor

Curtidas 1

Respostas

Misael

Misael

28/07/2004

Nesse exepmplo retorna a classe e o caption da janela...

procedure TForm1.Timer1Timer(Sender: TObject);
var
  H: HWND;
  WindowName: Array[0..255] of Char;
  ClassName: Array[0..255] of Char;
begin
  H := GetForegroundWindow;
  GetWindowText(H, WindowName, SizeOf(WindowName));
  GetClassName(H, ClassName, SizeOf(ClassName));
  Caption := ´Nome-> ´+WindowName+´ / Classe-> ´+ClassName;
end;



GOSTEI 0
POSTAR