Language: VB4/32,VB5,VB6 Expertise: beginner
Jun 24, 2000
WEBINAR:
On-Demand
Application Security Testing: An Integral Part of DevOps
WindowFromMouse - The handle of the window under the mouse cursor
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
ByVal yPoint As Long) As Long
' Return the handle of the window under the mouse cursor.
Function WindowFromMouse() As Long
Dim lpPoint As POINTAPI
GetCursorPos lpPoint
WindowFromMouse = WindowFromPoint(lpPoint.X, lpPoint.Y)
End Function
Francesco Balena
|