Text mittels Keybd_Event markieren (VK_Shift)

[Cyberstorm]

Falls es noch wer sucht:

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;

Quelle: http://www.delphipraxis.net/internal...aktives+handle