取鼠标形状模块
: :1.637KB :2021-04-24 20:57:24
a.cbSize = 20
a.ptScreenPos.x = 取鼠标水平位置 ()
a.ptScreenPos.y = 取鼠标垂直位置 ()
GetCursorInfo (a)
.如果真 (old ≠ a.hCursor)
画板1.清除 (, , , )
old = a.hCursor
DrawIcon (GetDC (画板1.取窗口句柄 ()), 5, 5, a.hCursor)
可以用于截屏带鼠标指针哦,易语言取鼠标形状模块例子。