1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function GetSysFocus : HWND; 
var 
  ThreadID, CurrThrId: cardinal; 
begin 
  Result := 0; 
  ThreadID := GetWindowThreadProcessID(GetForegroundWindow, nil); 
  CurrThrId := GetCurrentThreadId; 
  if ThreadID <> CurrThrId then 
  begin 
    if AttachThreadInput(ThreadID, CurrThrId, true) then 
    begin 
      Result := GetFocus; 
      AttachThreadInput(ThreadID, CurrThrId, false); 
    end; 
  end 
  else 
    Result := GetFocus; 
end;