Text unterMaus bzw.Text aus aktivem Fenster inZwischenablage

[benst]

@marabu
Vielen Dank.
...

Delphi-Quellcode:

function GetFocusedControl: HWnd;
var
  tid: Cardinal;
  hw: HWND;
begin
  hw := GetForegroundWindow;
  tid := GetWindowThreadProcessID(hw, nil);
  if AttachThreadInput(GetCurrentThreadID, tid, true)
    then Result := GetFocus
    else Result := HWND(-1);
  AttachThreadInput(GetCurrentThreadID, tid, false);
end;


procedure TForm1.Button20Click(Sender: TObject);
var Buffer: array[0..99] of Char;
begin
GetWindowText(GetFocusedControl(), Buffer, 100);
ClipBoard.AsText:=StrPas(Buffer);
end;

So in etwa? Natürlich wird der Tastendruck über einen Timer ausgelöst.
Aber ich bekomme nichts in die Zwischenablage. Was mache ich falsch.
Gruß
Ben