Neues Projekt erstellen, einen Timer darauf machen, diesen Code rein:
Delphi-Quellcode:
var
AForegroundPID : dword;
AMyWindow : boolean;
begin
getWindowThreadProcessId(GetForegroundWindow, AForegroundPID);
AMyWindow := AForegroundPID = getCurrentProcessId;
caption:= inttostr( integer( amywindow));
end;
und funktioniert doch wunderbar = ?