Pegar o Caption da Janela Ativa

Question

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???

Misael · Answer

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;

F�rum Pegar o Caption da Janela Ativa #244863