求助将这段易代码翻译到火山

叫我尹志平

这是一段提取EXE程序图标的代码，附件已上传。

qq793359277

视窗1.zip (284.49 KB, 下载次数: 0)

2024-5-28 14:27 上传

点击文件名下载附件

叫我尹志平

  

子程序名	返回值类型	公开	备 注
获取ico图标	字节集		本源码来自易语言资源网(www.eyuyan.la)
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
hIco	整数型
img	字节集
场景句柄1	整数型
位图句柄1	整数型
位图数据	字节集
屏幕设备句柄	整数型
位图句柄	整数型
场景句柄	整数型
位图指针	整数型
旧位图句柄	整数型
数组	整数型
sInfo	整数型		1

CoInitialize (0)
SHGetFileInfo (文件路径, 128, sInfo, 0, 256)
hIco ＝ sInfo [1]
CoUninitialize ()
屏幕设备句柄 ＝ GetDC (0)
场景句柄1 ＝ CreateCompatibleDC (屏幕设备句柄)
位图句柄1 ＝ CreateCompatibleBitmap (屏幕设备句柄, 32, 32)
SelectObject (场景句柄1, 位图句柄1)
DrawIconEx (场景句柄1, 0, 0, hIco, 32, 32, 0, 0, 3)
位图数据 ＝ { 40, 0, 0, 0, 32, 0, 0, 0, 32, 0, 0, 0, 1, 0, 32 } ＋ 取空白字节集 (4121)
场景句柄 ＝ CreateCompatibleDC (场景句柄1)
位图句柄 ＝ CreateDIBSection1 (场景句柄, 位图数据, 0, 位图指针, 0, 0)
旧位图句柄 ＝ SelectObject (场景句柄, 位图句柄)
BitBlt (场景句柄, 0, 0, 32, 32, 场景句柄1, 0, 0, 13369376)
RtlMoveMemory (lstrcpynA (位图数据, 位图数据, 0) ＋ 40, 位图指针, 4096)
ReleaseDC (0, 屏幕设备句柄)
DeleteDC (场景句柄1)
DeleteDC (场景句柄)
DeleteObject (旧位图句柄)
DeleteObject (位图句柄1)
DeleteObject (位图句柄)
img ＝ { 0, 0, 1, 0, 1, 0, 32, 32, 0, 0, 1, 0, 32, 0, 168, 16, 0, 0, 22, 0, 0, 0, 40, 0, 0, 0, 32, 0, 0, 0, 64, 0, 0, 0, 1, 0, 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 196, 14, 0, 0, 196, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 取字节集右边 (位图数据, 4096) ＋ 取空白字节集 (128)
返回 (img)

.版本 2<br /> <br /> .子程序 获取ico图标, 字节集, , 本源码来自易语言资源网(<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a>)<br /> .参数 文件路径, 文本型<br /> .局部变量 hIco, 整数型<br /> .局部变量 img, 字节集<br /> .局部变量 场景句柄1, 整数型<br /> .局部变量 位图句柄1, 整数型<br /> .局部变量 位图数据, 字节集<br /> .局部变量 屏幕设备句柄, 整数型<br /> .局部变量 位图句柄, 整数型<br /> .局部变量 场景句柄, 整数型<br /> .局部变量 位图指针, 整数型<br /> .局部变量 旧位图句柄, 整数型<br /> .局部变量 数组, 整数型<br /> .局部变量 sInfo, 整数型, , "1"<br /> <br /> CoInitialize (0)<br /> SHGetFileInfo (文件路径, 128, sInfo, 0, 256)<br /> hIco ＝ sInfo [1]<br /> CoUninitialize ()<br /> 屏幕设备句柄 ＝ GetDC (0)<br /> 场景句柄1 ＝ CreateCompatibleDC (屏幕设备句柄)<br /> 位图句柄1 ＝ CreateCompatibleBitmap (屏幕设备句柄, 32, 32)<br /> SelectObject (场景句柄1, 位图句柄1)<br /> DrawIconEx (场景句柄1, 0, 0, hIco, 32, 32, 0, 0, 3)<br /> 位图数据 ＝ { 40, 0, 0, 0, 32, 0, 0, 0, 32, 0, 0, 0, 1, 0, 32 } ＋ 取空白字节集 (4121)<br /> 场景句柄 ＝ CreateCompatibleDC (场景句柄1)<br /> 位图句柄 ＝ CreateDIBSection1 (场景句柄, 位图数据, 0, 位图指针, 0, 0)<br /> 旧位图句柄 ＝ SelectObject (场景句柄, 位图句柄)<br /> BitBlt (场景句柄, 0, 0, 32, 32, 场景句柄1, 0, 0, 13369376)<br /> RtlMoveMemory (lstrcpynA (位图数据, 位图数据, 0) ＋ 40, 位图指针, 4096)<br /> ReleaseDC (0, 屏幕设备句柄)<br /> DeleteDC (场景句柄1)<br /> DeleteDC (场景句柄)<br /> DeleteObject (旧位图句柄)<br /> DeleteObject (位图句柄1)<br /> DeleteObject (位图句柄)<br /> img ＝ { 0, 0, 1, 0, 1, 0, 32, 32, 0, 0, 1, 0, 32, 0, 168, 16, 0, 0, 22, 0, 0, 0, 40, 0, 0, 0, 32, 0, 0, 0, 64, 0, 0, 0, 1, 0, 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, 196, 14, 0, 0, 196, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 取字节集右边 (位图数据, 4096) ＋ 取空白字节集 (128)<br /> 返回 (img)

叫我尹志平

自己试着改了下，将DLL的命令都复制到火山上了，但还是出错。

w5717

可以用仰望的模块，里面都有类似的写法。帮你扣出来了

叫我尹志平

w5717 发表于 2024-5-26 23:23
可以用仰望的模块，里面都有类似的写法。帮你扣出来了

现在用的就是火山模块，但因为想让他返回字节集，所以才发了这个求助帖。

叫我尹志平

w5717 发表于 2024-5-26 23:23
可以用仰望的模块，里面都有类似的写法。帮你扣出来了

精易模块有 图片_通过句柄取图标  其实就是把这个命令翻译为火山

叫我尹志平

  

子程序名	返回值类型	公开	备 注
图片_通过句柄取图标	字节集
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				当前窗口句柄
图标句柄	整数型
图标宽度	整数型
图标高度	整数型
背景颜色	整数型

变量名	类 型	静态	数组	备 注
sRect	精易_矩形
sIco	字节集
位图操作	类_位图操作
SrchDC	整数型
newDC	整数型
hwnd	整数型
hBmp	整数型
hBmpPrev	整数型
mBrush	整数型

如果真 (是否为空 (图标宽度))
图标宽度 ＝ 32
如果真 (是否为空 (图标高度))
图标高度 ＝ 32
如果真 (是否为空 (背景颜色))
背景颜色 ＝ #白色
sRect.顶边 ＝ 0
sRect.左边 ＝ 0
sRect.右边 ＝ 图标宽度
sRect.底边 ＝ 图标高度
SrchDC ＝ GetDC (窗口句柄)
newDC ＝ CreateCompatibleDC (SrchDC)
' 验证 (newDC)
hBmp ＝ CreateCompatibleBitmap (SrchDC, 48, 48)
' 验证 (hBmp)
hBmpPrev ＝ SelectObject (newDC, hBmp)
' 验证 (hBmpPrev)
mBrush ＝ CreateSolidBrush (背景颜色)
FillRect (newDC, sRect, mBrush)
DrawIconEx (newDC, 0, 0, 图标句柄, 图标宽度, 图标高度, 0, 0, 3)
位图操作.从场景创建 (newDC, sRect, 32)
sIco ＝ 位图操作.取出位图数据 ()
ReleaseDC (hwnd, SrchDC)
DeleteDC (newDC)
DeleteObject (hBmpPrev)
DeleteObject (hBmp)
DeleteObject (mBrush)
返回 (sIco)

.版本 2<br /> <br /> .子程序 图片_通过句柄取图标, 字节集, 公开<br /> .参数 窗口句柄, 整数型, , 当前窗口句柄<br /> .参数 图标句柄, 整数型<br /> .参数 图标宽度, 整数型, 可空<br /> .参数 图标高度, 整数型, 可空<br /> .参数 背景颜色, 整数型, 可空<br /> .局部变量 sRect, 精易_矩形<br /> .局部变量 sIco, 字节集<br /> .局部变量 位图操作, 类_位图操作<br /> .局部变量 SrchDC, 整数型<br /> .局部变量 newDC, 整数型<br /> .局部变量 hwnd, 整数型<br /> .局部变量 hBmp, 整数型<br /> .局部变量 hBmpPrev, 整数型<br /> .局部变量 mBrush, 整数型<br /> <br /> .如果真 (是否为空 (图标宽度))<br />     图标宽度 ＝ 32<br /> .如果真结束<br /> .如果真 (是否为空 (图标高度))<br />     图标高度 ＝ 32<br /> .如果真结束<br /> .如果真 (是否为空 (背景颜色))<br />     背景颜色 ＝ #白色<br /> .如果真结束<br /> sRect.顶边 ＝ 0<br /> sRect.左边 ＝ 0<br /> sRect.右边 ＝ 图标宽度<br /> sRect.底边 ＝ 图标高度<br /> SrchDC ＝ GetDC (窗口句柄)<br /> newDC ＝ CreateCompatibleDC (SrchDC)<br /> ' 验证 (newDC)<br /> hBmp ＝ CreateCompatibleBitmap (SrchDC, 48, 48)<br /> ' 验证 (hBmp)<br /> hBmpPrev ＝ SelectObject (newDC, hBmp)<br /> ' 验证 (hBmpPrev)<br /> mBrush ＝ CreateSolidBrush (背景颜色)<br /> FillRect (newDC, sRect, mBrush)<br /> DrawIconEx (newDC, 0, 0, 图标句柄, 图标宽度, 图标高度, 0, 0, 3)<br /> 位图操作.从场景创建 (newDC, sRect, 32)<br /> sIco ＝ 位图操作.取出位图数据 ()<br /> ReleaseDC (hwnd, SrchDC)<br /> DeleteDC (newDC)<br /> DeleteObject (hBmpPrev)<br /> DeleteObject (hBmp)<br /> DeleteObject (mBrush)<br /> 返回 (sIco)

叫我尹志平

火山模块的那个取程序图标_，对应的易语言的命令是这个例子。