关于取鼠标指针图片

xxx2161270

取当前鼠标指针图片    保存为字集节数据   不要带背景图片

chenboss

取当前鼠标指针图片.e

林中道士

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

取鼠标指针字节集 ()
返回 0  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
取鼠标指针字节集	字节集

变量名	类 型	静态	数组	备 注
CursorInfo	CURSORINFO
IconInfo	ICONINFO
bmpColor	BITMAP
bmpMask	BITMAP
宽度	整数型
高度	整数型
位图数据大小	整数型
位图数据	字节集
位图信息头	BITMAPINFOHEADER
设备场景	整数型
新设备场景	整数型
指针句柄	整数型

CursorInfo.cbSize ＝ 20
GetCursorInfo (CursorInfo)
如果真 (CursorInfo.hCursor ＝ 0)
返回 { }

GetIconInfo (CursorInfo.hCursor, IconInfo)
GetObjectA (IconInfo.hbmColor, 24, bmpColor)
GetObjectA (IconInfo.hbmMask, 24, bmpMask)
宽度 ＝ bmpColor.bmWidth
高度 ＝ bmpColor.bmHeight
位图信息头.biSize ＝ 40
位图信息头.biWidth ＝ 宽度
位图信息头.biHeight ＝ 高度
位图信息头.biPlanes ＝ 1
位图信息头.biBitCount ＝ 32
位图信息头.biCompression ＝ 0
位图信息头.biSizeImage ＝ 宽度 × 高度 × 4
位图数据大小 ＝ 位图信息头.biSizeImage
位图数据 ＝ 取空白字节集 (位图数据大小)
设备场景 ＝ CreateCompatibleDC (0)
新设备场景 ＝ CreateCompatibleDC (0)
SelectObject (设备场景, IconInfo.hbmColor)
SelectObject (新设备场景, CreateCompatibleBitmap (设备场景, 宽度, 高度))
BitBlt (新设备场景, 0, 0, 宽度, 高度, 设备场景, 0, 0, 13369376)
GetDIBits (新设备场景, IconInfo.hbmColor, 0, 高度, 位图数据, 位图信息头, 0)
处理透明通道 (IconInfo.hbmMask, 位图数据, 宽度, 高度)
DeleteDC (设备场景)
DeleteDC (新设备场景)
DeleteObject (IconInfo.hbmColor)
DeleteObject (IconInfo.hbmMask)
返回 生成BMP字节集 (位图信息头, 位图数据, 宽度, 高度)

子程序名	返回值类型	公开	备 注
处理透明通道
参数名	类 型	参考	可空	数组	备 注
hbmMask	整数型
位图数据	字节集
宽度	整数型
高度	整数型

变量名	类 型	静态	数组	备 注
mask数据	字节集
mask信息头	BITMAPINFOHEADER
行	整数型
列	整数型
位置	整数型
设备场景	整数型

mask信息头.biSize ＝ 40
mask信息头.biWidth ＝ 宽度
mask信息头.biHeight ＝ 高度
mask信息头.biPlanes ＝ 1
mask信息头.biBitCount ＝ 1
mask信息头.biCompression ＝ 0
mask信息头.biSizeImage ＝ ( (宽度 + 31) ÷ 32 × 4) × 高度
mask数据 ＝ 取空白字节集 (mask信息头.biSizeImage)
设备场景 ＝ CreateCompatibleDC (0)
SelectObject (设备场景, hbmMask)
GetDIBits (设备场景, hbmMask, 0, 高度, mask数据, mask信息头, 0)
DeleteDC (设备场景)
计次循环首 (高度, 行)
计次循环首 (宽度, 列)
位置 ＝ (行 - 1) × 宽度 × 4 + (列 - 1) × 4 + 1
位置 ＝ 位图数据大小 ��� (行 × 宽度 × 4) ��� (列 × 4)  ' 修正扫描线顺序

如果 (取位掩码 (mask数据, 列 - 1, 行 - 1, 宽度) ＝ 1)
位图数据 [位置 + 3] ＝ 0  ' 设置Alpha通道为透明
位图数据 [位置 + 3] ＝ 255  ' 设置Alpha通道为不透明

计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
取位掩码	整数型
参数名	类 型	参考	可空	数组	备 注
mask数据	字节集
x	整数型
y	整数型
宽度	整数型

变量名	类 型	静态	数组	备 注
每行字节数	整数型
位置	整数型
位偏移	整数型

每行字节数 ＝ (宽度 + 31) ÷ 32 × 4
位置 ＝ y × 每行字节数 + x ÷ 8 + 1
位偏移 ＝ 7 ��� (x ％ 8)
返回 位与 (右移 (mask数据 [位置], 位偏移), 1)

子程序名	返回值类型	公开	备 注
生成BMP字节集	字节集
参数名	类 型	参考	可空	数组	备 注
信息头	BITMAPINFOHEADER
像素数据	字节集
宽度	整数型
高度	整数型

变量名	类 型	静态	数组	备 注
文件头	BITMAPFILEHEADER
结果数据	字节集

文件头.bfType ＝ 19778  ' "BM"
文件头.bfSize ＝ 取字节集长度 (像素数据) + 54
文件头.bfOffBits ＝ 54
结果数据 ＝ 取空白字节集 (文件头.bfSize)
写到内存 (文件头, 取变量数据地址 (结果数据), 14)
写到内存 (信息头, 取变量数据地址 (结果数据) + 14, 40)
写到内存 (像素数据, 取变量数据地址 (结果数据) + 54, 取字节集长度 (像素数据))
返回 结果数据

数据类型名	公开	备 注
CURSORINFO		光标信息
成员名	类 型	传址	数组	备 注

.成员 cbSize, 整数型
.成员 flags, 整数型
.成员 hCursor, 整数型
.成员 ptScreenPos, POINT

数据类型名	公开	备 注
ICONINFO		图标信息
成员名	类 型	传址	数组	备 注

.成员 fIcon, 逻辑型
.成员 xHotspot, 整数型
.成员 yHotspot, 整数型
.成员 hbmMask, 整数型
.成员 hbmColor, 整数型

数据类型名	公开	备 注
BITMAP		位图结构
成员名	类 型	传址	数组	备 注

.成员 bmType, 整数型
.成员 bmWidth, 整数型
.成员 bmHeight, 整数型
.成员 bmWidthBytes, 整数型
.成员 bmPlanes, 短整数型
.成员 bmBitsPixel, 短整数型
.成员 bmBits, 整数型

数据类型名	公开	备 注
BITMAPINFOHEADER		位图信息头
成员名	类 型	传址	数组	备 注

.成员 biSize, 整数型
.成员 biWidth, 整数型
.成员 biHeight, 整数型
.成员 biPlanes, 短整数型
.成员 biBitCount, 短整数型
.成员 biCompression, 整数型
.成员 biSizeImage, 整数型
.成员 biXPelsPerMeter, 整数型
.成员 biYPelsPerMeter, 整数型
.成员 biClrUsed, 整数型
.成员 biClrImportant, 整数型

数据类型名	公开	备 注
BITMAPFILEHEADER		位图文件头
成员名	类 型	传址	数组	备 注

.成员 bfType, 短整数型
.成员 bfSize, 整数型
.成员 bfReserved1, 短整数型
.成员 bfReserved2, 短整数型
.成员 bfOffBits, 整数型

DLL命令名	返回值类型	公开	备 注
GetCursorInfo	逻辑型		公开, 获取光标信息
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetCursorInfo
参数名	类 型	传址	数组	备 注
pci	CURSORINFO

DLL命令名	返回值类型	公开	备 注
GetIconInfo	逻辑型		公开, 获取图标信息
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetIconInfo
参数名	类 型	传址	数组	备 注
hIcon	整数型
piconinfo	ICONINFO

DLL命令名	返回值类型	公开	备 注
GetObjectA	整数型		公开, 获取对象信息
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
GetObjectA
参数名	类 型	传址	数组	备 注
hgdiobj	整数型
cbBuffer	整数型
lpvObject	BITMAP

DLL命令名	返回值类型	公开	备 注
CreateCompatibleDC	整数型		公开
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
CreateCompatibleDC
参数名	类 型	传址	数组	备 注
hdc	整数型

DLL命令名	返回值类型	公开	备 注
SelectObject	整数型		公开
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
SelectObject
参数名	类 型	传址	数组	备 注
hdc	整数型
hgdiobj	整数型

DLL命令名	返回值类型	公开	备 注
CreateCompatibleBitmap	整数型		公开
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
CreateCompatibleBitmap
参数名	类 型	传址	数组	备 注
hdc	整数型
nWidth	整数型
nHeight	整数型

DLL命令名	返回值类型	公开	备 注
BitBlt	逻辑型		公开
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
BitBlt
参数名	类 型	传址	数组	备 注
hdcDest	整数型
nXDest	整数型
nYDest	整数型
nWidth	整数型
nHeight	整数型
hdcSrc	整数型
nXSrc	整数型
nYSrc	整数型
dwRop	整数型

DLL命令名	返回值类型	公开	备 注
GetDIBits	整数型		公开
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
GetDIBits
参数名	类 型	传址	数组	备 注
hdc	整数型
hbmp	整数型
uStartScan	整数型
cScanLines	整数型
lpvBits	字节集
lpbmi	BITMAPINFOHEADER
uUsage	整数型

DLL命令名	返回值类型	公开	备 注
DeleteDC	逻辑型		公开
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
DeleteDC
参数名	类 型	传址	数组	备 注
hdc	整数型

DLL命令名	返回值类型	公开	备 注
DeleteObject	逻辑型		公开
DLL库文件名:
gdi32.dll
在DLL库中对应命令名:
DeleteObject
参数名	类 型	传址	数组	备 注
hObject	整数型

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> 取鼠标指针字节集 ()<br /> 返回 0  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 取鼠标指针字节集, 字节集<br /> .局部变量 CursorInfo, CURSORINFO<br /> .局部变量 IconInfo, ICONINFO<br /> .局部变量 bmpColor, BITMAP<br /> .局部变量 bmpMask, BITMAP<br /> .局部变量 宽度, 整数型<br /> .局部变量 高度, 整数型<br /> .局部变量 位图数据大小, 整数型<br /> .局部变量 位图数据, 字节集<br /> .局部变量 位图信息头, BITMAPINFOHEADER<br /> .局部变量 设备场景, 整数型<br /> .局部变量 新设备场景, 整数型<br /> .局部变量 指针句柄, 整数型<br /> <br /> CursorInfo.cbSize ＝ 20<br /> GetCursorInfo (CursorInfo)<br /> .如果真 (CursorInfo.hCursor ＝ 0)<br />     返回 { }<br /> .如果真结束<br /> <br /> GetIconInfo (CursorInfo.hCursor, IconInfo)<br /> <br /> GetObjectA (IconInfo.hbmColor, 24, bmpColor)<br /> GetObjectA (IconInfo.hbmMask, 24, bmpMask)<br /> <br /> 宽度 ＝ bmpColor.bmWidth<br /> 高度 ＝ bmpColor.bmHeight<br /> <br /> 位图信息头.biSize ＝ 40<br /> 位图信息头.biWidth ＝ 宽度<br /> 位图信息头.biHeight ＝ 高度<br /> 位图信息头.biPlanes ＝ 1<br /> 位图信息头.biBitCount ＝ 32<br /> 位图信息头.biCompression ＝ 0<br /> 位图信息头.biSizeImage ＝ 宽度 × 高度 × 4<br /> <br /> 位图数据大小 ＝ 位图信息头.biSizeImage<br /> 位图数据 ＝ 取空白字节集 (位图数据大小)<br /> <br /> 设备场景 ＝ CreateCompatibleDC (0)<br /> 新设备场景 ＝ CreateCompatibleDC (0)<br /> <br /> SelectObject (设备场景, IconInfo.hbmColor)<br /> SelectObject (新设备场景, CreateCompatibleBitmap (设备场景, 宽度, 高度))<br /> <br /> BitBlt (新设备场景, 0, 0, 宽度, 高度, 设备场景, 0, 0, 13369376)<br /> <br /> GetDIBits (新设备场景, IconInfo.hbmColor, 0, 高度, 位图数据, 位图信息头, 0)<br /> <br /> 处理透明通道 (IconInfo.hbmMask, 位图数据, 宽度, 高度)<br /> <br /> DeleteDC (设备场景)<br /> DeleteDC (新设备场景)<br /> DeleteObject (IconInfo.hbmColor)<br /> DeleteObject (IconInfo.hbmMask)<br /> <br /> 返回 生成BMP字节集 (位图信息头, 位图数据, 宽度, 高度)<br /> <br /> .子程序 处理透明通道<br /> .参数 hbmMask, 整数型<br /> .参数 位图数据, 字节集, 参考<br /> .参数 宽度, 整数型<br /> .参数 高度, 整数型<br /> .局部变量 mask数据, 字节集<br /> .局部变量 mask信息头, BITMAPINFOHEADER<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> .局部变量 位置, 整数型<br /> .局部变量 设备场景, 整数型<br /> <br /> mask信息头.biSize ＝ 40<br /> mask信息头.biWidth ＝ 宽度<br /> mask信息头.biHeight ＝ 高度<br /> mask信息头.biPlanes ＝ 1<br /> mask信息头.biBitCount ＝ 1<br /> mask信息头.biCompression ＝ 0<br /> mask信息头.biSizeImage ＝ ((宽度 + 31) ÷ 32 × 4) × 高度<br /> <br /> mask数据 ＝ 取空白字节集 (mask信息头.biSizeImage)<br /> <br /> 设备场景 ＝ CreateCompatibleDC (0)<br /> SelectObject (设备场景, hbmMask)<br /> GetDIBits (设备场景, hbmMask, 0, 高度, mask数据, mask信息头, 0)<br /> DeleteDC (设备场景)<br /> <br /> .计次循环首 (高度, 行)<br />     .计次循环首 (宽度, 列)<br />         位置 ＝ (行 - 1) × 宽度 × 4 + (列 - 1) × 4 + 1<br />         位置 ＝ 位图数据大小 － (行 × 宽度 × 4) ＋ (列 × 4)  ' 修正扫描线顺序<br />         <br />         .如果 (取位掩码 (mask数据, 列 - 1, 行 - 1, 宽度) ＝ 1)<br />             位图数据 [位置 + 3] ＝ 0  ' 设置Alpha通道为透明<br />         .否则<br />             位图数据 [位置 + 3] ＝ 255  ' 设置Alpha通道为不透明<br />         .如果结束<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 取位掩码, 整数型<br /> .参数 mask数据, 字节集<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 宽度, 整数型<br /> .局部变量 每行字节数, 整数型<br /> .局部变量 位置, 整数型<br /> .局部变量 位偏移, 整数型<br /> <br /> 每行字节数 ＝ (宽度 + 31) ÷ 32 × 4<br /> 位置 ＝ y × 每行字节数 + x ÷ 8 + 1<br /> 位偏移 ＝ 7 － (x ％ 8)<br /> <br /> 返回 位与 (右移 (mask数据 [位置], 位偏移), 1)<br /> <br /> .子程序 生成BMP字节集, 字节集<br /> .参数 信息头, BITMAPINFOHEADER<br /> .参数 像素数据, 字节集<br /> .参数 宽度, 整数型<br /> .参数 高度, 整数型<br /> .局部变量 文件头, BITMAPFILEHEADER<br /> .局部变量 结果数据, 字节集<br /> <br /> 文件头.bfType ＝ 19778  ' "BM"<br /> 文件头.bfSize ＝ 取字节集长度 (像素数据) + 54<br /> 文件头.bfOffBits ＝ 54<br /> <br /> 结果数据 ＝ 取空白字节集 (文件头.bfSize)<br /> 写到内存 (文件头, 取变量数据地址 (结果数据), 14)<br /> 写到内存 (信息头, 取变量数据地址 (结果数据) + 14, 40)<br /> 写到内存 (像素数据, 取变量数据地址 (结果数据) + 54, 取字节集长度 (像素数据))<br /> <br /> 返回 结果数据<br /> <br /> .数据类型 CURSORINFO, , 光标信息<br /> .成员 cbSize, 整数型<br /> .成员 flags, 整数型<br /> .成员 hCursor, 整数型<br /> .成员 ptScreenPos, POINT<br /> <br /> .数据类型 ICONINFO, , 图标信息<br /> .成员 fIcon, 逻辑型<br /> .成员 xHotspot, 整数型<br /> .成员 yHotspot, 整数型<br /> .成员 hbmMask, 整数型<br /> .成员 hbmColor, 整数型<br /> <br /> .数据类型 BITMAP, , 位图结构<br /> .成员 bmType, 整数型<br /> .成员 bmWidth, 整数型<br /> .成员 bmHeight, 整数型<br /> .成员 bmWidthBytes, 整数型<br /> .成员 bmPlanes, 短整数型<br /> .成员 bmBitsPixel, 短整数型<br /> .成员 bmBits, 整数型<br /> <br /> .数据类型 BITMAPINFOHEADER, , 位图信息头<br /> .成员 biSize, 整数型<br /> .成员 biWidth, 整数型<br /> .成员 biHeight, 整数型<br /> .成员 biPlanes, 短整数型<br /> .成员 biBitCount, 短整数型<br /> .成员 biCompression, 整数型<br /> .成员 biSizeImage, 整数型<br /> .成员 biXPelsPerMeter, 整数型<br /> .成员 biYPelsPerMeter, 整数型<br /> .成员 biClrUsed, 整数型<br /> .成员 biClrImportant, 整数型<br /> <br /> .数据类型 BITMAPFILEHEADER, , 位图文件头<br /> .成员 bfType, 短整数型<br /> .成员 bfSize, 整数型<br /> .成员 bfReserved1, 短整数型<br /> .成员 bfReserved2, 短整数型<br /> .成员 bfOffBits, 整数型<br /> <br /> .DLL命令 GetCursorInfo, 逻辑型, "user32.dll", "GetCursorInfo", , 公开, 获取光标信息<br />     .参数 pci, CURSORINFO<br /> <br /> .DLL命令 GetIconInfo, 逻辑型, "user32.dll", "GetIconInfo", , 公开, 获取图标信息<br />     .参数 hIcon, 整数型<br />     .参数 piconinfo, ICONINFO<br /> <br /> .DLL命令 GetObjectA, 整数型, "gdi32.dll", "GetObjectA", , 公开, 获取对象信息<br />     .参数 hgdiobj, 整数型<br />     .参数 cbBuffer, 整数型<br />     .参数 lpvObject, BITMAP<br /> <br /> .DLL命令 CreateCompatibleDC, 整数型, "gdi32.dll", "CreateCompatibleDC", , 公开<br />     .参数 hdc, 整数型<br /> <br /> .DLL命令 SelectObject, 整数型, "gdi32.dll", "SelectObject", , 公开<br />     .参数 hdc, 整数型<br />     .参数 hgdiobj, 整数型<br /> <br /> .DLL命令 CreateCompatibleBitmap, 整数型, "gdi32.dll", "CreateCompatibleBitmap", , 公开<br />     .参数 hdc, 整数型<br />     .参数 nWidth, 整数型<br />     .参数 nHeight, 整数型<br /> <br /> .DLL命令 BitBlt, 逻辑型, "gdi32.dll", "BitBlt", , 公开<br />     .参数 hdcDest, 整数型<br />     .参数 nXDest, 整数型<br />     .参数 nYDest, 整数型<br />     .参数 nWidth, 整数型<br />     .参数 nHeight, 整数型<br />     .参数 hdcSrc, 整数型<br />     .参数 nXSrc, 整数型<br />     .参数 nYSrc, 整数型<br />     .参数 dwRop, 整数型<br /> <br /> .DLL命令 GetDIBits, 整数型, "gdi32.dll", "GetDIBits", , 公开<br />     .参数 hdc, 整数型<br />     .参数 hbmp, 整数型<br />     .参数 uStartScan, 整数型<br />     .参数 cScanLines, 整数型<br />     .参数 lpvBits, 字节集<br />     .参数 lpbmi, BITMAPINFOHEADER<br />     .参数 uUsage, 整数型<br /> <br /> .DLL命令 DeleteDC, 逻辑型, "gdi32.dll", "DeleteDC", , 公开<br />     .参数 hdc, 整数型<br /> <br /> .DLL命令 DeleteObject, 逻辑型, "gdi32.dll", "DeleteObject", , 公开<br />     .参数 hObject, 整数型

xxx2161270

林中道士 发表于 2025-1-31 18:54
[e=0].版本 2
.支持库 spec

大佬 有报错 我小白 有点错误也不会改  能测试下发一份吗 感谢

xxx2161270

chenboss 发表于 2025-1-31 19:44
取当前鼠标指针图片.e

这个好简单 还是想要的效果