如何得到键盘光标所在窗口句柄?

Question

当按Win+A时，弹出一个对话框显示focuse Handle
老兄，有什么用procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 1001, MOD_Win, 65);
end;{消息重载 WM_HOTKEY}
procedure TForm1.WMHotKey(var Msg: TMessage);  
var
  ActiveHandle: THandle;  //当前活动窗体ThreadID
  CurHandle: THandle;    //本程序ThreadID
begin
  if Msg.WParam = 1001 then  //
  begin
    CurHandle := GetCurrentThreadID;
    ActiveHandle := GetWindowThreadProcessID(GetForeGroundWindow, nil);
    AttachThreadInput(CurHandle, ActiveHandle, True);
    ShowMessage(IntToStr(GetFocus));
    AttachThreadInput(CurHandle, ActiveHandle, False);
  end;
  inherited;
end;