Delphi-Quellcode:
procedure TMainForm.TActiveWindowTimer(Sender: TObject);
begin
GetForegroundWindow;
WindowText := GetWindowText(GetForegroundWindow, nil, nil);
if WindowText <> WindowText2 then
begin
Memo1.SelText:= WindowText;
WindowText2 := WindowText;
end;
end;
habs mal so versucht, allerdings stimmen die Parameter von GetWindowText nicht ?!?
und noch ne Frage in der Hilfe steht das "GetWindowText" einen Integerwert zurückliefert. Aber ich will doch wissen wie das Fenster heißt als z.B. Mozilla Firefox oder Notepad oder so .