Código Delphi [-]procedure TForm1.Timer1Timer(Sender: TObject); var Text: array [0..259] of Char; begin GetWindowText(WindowFromPoint(Mouse.CursorPos), @Text, SizeOf(Text)); // Memo1.Lines.Add(Text); Caption := Text; end;
procedure TForm1.Timer1Timer(Sender: TObject); var Text: array [0..259] of Char; begin GetWindowText(WindowFromPoint(Mouse.CursorPos), @Text, SizeOf(Text)); // Memo1.Lines.Add(Text); Caption := Text; end;