请问怎样得到其他Active Window的焦点的句柄

Question

我是问怎样得到其他Active Window的内焦点控件的句柄，
不是本应用程序内的焦点控件。

Answer 1

用 TScreen 类
var
 screen : TScreen;
 screen.activeform // 我记得不太清楚了，请查帮助

Answer 2

var
  ActiveHandle: THandle;
  ActiveText: array [0.255] of Char;
begin
  ActiveHandle:=GetForegroundWindow;
  if GetWindowText(ActiveHandle,@ActiveText,255)>0 then
    ShowMessage(StrPas(@ActiveText))
  else
    showMessage(':(')
end;