整个系统中的焦点控件

get the focus systemwide?

function GetSysFocus: Integer;

var

 hFgWin, FgThreadID, hFocusWin: Integer;

begin

 hFgWin     := GetForegroundWindow;

 FgThreadID := GetWindowThreadProcessID(hFgWin, nil);

 if AttachThreadInput(GetCurrentThreadID, FgThreadID, True) then

 begin

   hFocusWin := GetFocus;

   Result    := GetFocus;

   AttachThreadInput(GetCurrentThreadID, FgThreadID, False);

 end

 else

   Result := GetFocus;

end;