快照带鼠标命令使用方法

pci.cbSize ＝ 20
GetCursorInfo (pci)
GetIconInfo (pci.hCursor, iconinfo)
DC ＝ GetDC (hwnd) ' 获取控件句柄的DC
MemDC ＝ CreateCompatibleDC (DC) ' 创建与控件句柄兼容的内存DC
.如果 (hwnd ＝ 0)
width ＝ 取屏幕宽度 ()
height ＝ 取屏幕高度 ()
.否则
GetWindowRect (hwnd, RECT)
width ＝ 取绝对值 (RECT.left － RECT.right)
height ＝ 取绝对值 (RECT.top － RECT.bottom)
.如果结束
Bitmap ＝ CreateCompatibleBitmap (DC, width, height) ' 创建兼容位图
holdbmp ＝ SelectObject (MemDC, Bitmap) ' 把位图选入内存DC
BitBlt (MemDC, 0, 0, width, height, DC, 0, 0, 13369376) ' 把控件句柄DC的图像拷贝到内存DC
.如果真 (显示鼠标 或 是否为空 (显示鼠标))
DrawIcon (MemDC, pci.ptScreenPos.x － iconinfo.xHotspot, pci.ptScreenPos.y － iconinfo.yHotspot, pci.hCursor)
.如果真结束
SelectObject (MemDC, holdbmp)
位图.从句柄创建 (Bitmap)
DeleteDC (MemDC)
DeleteObject (Bitmap)
ReleaseDC (hwnd, DC)
返回 (位图.取位图数据 ())