< GetClipCursor

Функция GetClipCursor

Declare Function GetClipCursor Lib "user32" (lprc As RECT) As Long

GetClipCursor находит текущий прямоугольник отсечения курсора мыши. Курсор мыши ограничен использованием ClipCursor. Курсор ограничен в этом прямоугольнике - даже SetCursorPos не может освободить это. Если нет явного прямоугольника отсечения, это - действительно размер экрана. Координаты прямоугольника помещены в lprc

lprc
Координаты прямоугольника отсечения

Пример

' Отобразим координаты прямоугольника отсечения
Dim winrect As RECT ' координаты прямоугольника
Dim retval As Long ' возвращаемое значение

' Читаем координаты и помещаем их в winrect
retval = GetClipCursor(winrect)
' Координаты(x,y) верхнего левого угла  
Debug.Print winrect.Left; winrect.Top
' Координаты(x,y) нижнего правого угла
Debug.Print winrect.Right; winrect.Bottom

Смотри также

ClipCursor

Категория

Курсоры