Letztes aktives Fenster in Desktop notieren (GetForegroundWindow)

[thomas2009]

Hi
mein Code soll ständig das aktive Fenster auf Desktop notieren

Durch ein Klick auf Button1 soll letzte aktive Fenster den Fokus bekommen

hier ist der Code :

Delphi-Quellcode:

Var
hwnd: THandle;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
hWnd := GetForegroundWindow;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
          lpRect : TRect;
begin
  if not (GetForegroundWindow = self.Handle) and (GetForegroundWindow <> self.Handle)
    then begin
            hWnd := GetForegroundWindow; end;

end;

Der Timer soll aber nur das aktive Fenster notieren
Damit ich später durch ein Klick auf Button1 das letzte aktive Fenster aktivieren kann

Natürlich der Timer soll mein Programm-Fenster ignorieren

Wie soll der Code sein, damit mein Ziel erreiche ?

Güß