Active Window on change?

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TMainForm.TActiveWindowTimer(Sender: TObject); 
var Wnd: HWND;
    sTitle: string;
begin
  Wnd := GetForegroundWindow;
  if Wnd <> 0 then
    begin
      SetLength(sTitle,GetWindowTextLength(Wnd));
      GetWindowText(Wnd,PChar(sTitle),Length(sTitle));
      Memo1.SelText := sTitle;
    end;
end;