如何获取外部程序系统当前光标所在控件的句柄？

Question

如何获取外部程序当前光标所在控件的句柄？（知其所在窗体的句柄）比如光标处一个文本框的句柄，

Answer 1

Private Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPrivate Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long用第二个函数取得鼠标的位置,然后用第一个函数取得鼠标位置处的控件(窗口)的句柄.

Answer 2

GetCaretPos 得到客户区光标位置 ClientToScreen 转换
然后WindowFromPoint 即可