如何获得鼠标所在坐标的窗口句柄和窗口标题
比如我把鼠标放在某程序的按钮上,可以获得按钮的句柄,但是获得按钮句柄的同时,我还想获得该按钮所在窗口的标题和句柄,不知道怎么获得,代码要怎么写...

[解决办法]

VB code

Private Type POINTAPI        x As Long        y As LongEnd TypePrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongPrivate Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPrivate Const cch = 255Private lpString As String * 256Private Sub Timer1_Timer()    Dim PP As POINTAPI    Dim myhwnd As Long    myhwnd = GetCursorPos(PP)    myhwnd = WindowFromPoint(PP.x, PP.y)    Label1.Caption = "鼠标所在控件的句柄是：" & myhwnd    Label2.Caption = "鼠标所在控件的文字是：" & Left(lpString, GetWindowText(myhwnd, lpString, cch))    Label3.Caption = "鼠标所在控件的父控件的句柄是：" & GetParent(myhwnd)    Label4.Caption = "鼠标所在控件的父控件的文字是：" & Left(lpString, GetWindowText(GetParent(myhwnd), lpString, cch))    Label5.Caption = "鼠标所在控件的祖控件的句柄是：" & GetParent(GetParent(myhwnd))    Label6.Caption = "鼠标所在控件的祖控件的文字是：" & Left(lpString, GetWindowText(GetParent(GetParent(myhwnd)), lpString, cch))End Sub