Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var a:array[0..255] of char;
begin
getwindowtext(GetForegroundWindow, a, 256);
caption := a;
end;
hab ich grade programmiert. keine garantie auf "optimalität". scheint aber zu klappen und ist sehr lustig