Esta dica faz o caption da janela ser atualizado com o nome e classe
da janela que estiver ativa no momento.
Crie um novo projeto, adicione um timer e no evento onTimer do timer
deixe conforme o exemplo abaixo:
1 2 3 4 5 6 7 8 9 10 11 | 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; |
