获取文件图标

墓志铭

功能类似： 提取资源文件图标 (, , , )
但是貌似这个函数不能黑月编译？不知道，反正我试了不行

获取的文件是icon结构的

利用了这个api
SHGetFileInfo

来获取文件的图标，不只是exe文件，任何文件的图标都能获得，甚至文件夹



功能等效于精易模块的文件_取图标 (, , , , )
但是代码量更少，所以更快。


默认大小是32*32可以自己试着改

  

子程序名	返回值类型	公开	备 注
获取ico图标	字节集
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型

变量名	类 型	静态	数组	备 注
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)

DLL命令名	返回值类型	公开	备 注
SHGetFileInfo	整数型		,
DLL库文件名:
在DLL库中对应命令名:
SHGetFileInfo
参数名	类 型	传址	数组	备 注
pszPath	文本型
dwFileAttributes	整数型
psfi	整数型
cbFileInfo	整数型
uFlags	整数型

DLL命令名	返回值类型	公开	备 注
lstrcpynA	整数型		, 将源字符串中指定数量的字符复制到目标字符串中。此方法为将如果将iMaxLength设置为0，则通过此方法可以取到lpString1的地址。
DLL库文件名:
kernel32
在DLL库中对应命令名:
lstrcpynA
参数名	类 型	传址	数组	备 注
lpString1	字节集			目标字符串
lpString2	字节集			源字符串
iMaxLength	整数型			复制的长度

.版本 2<br /> <br /> .子程序 获取ico图标, 字节集<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 /> <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)<br /> <br /> .版本 2<br /> <br /> .DLL命令 SHGetFileInfo, 整数型, , "SHGetFileInfo", , ,<br />     .参数 pszPath, 文本型<br />     .参数 dwFileAttributes, 整数型<br />     .参数 psfi, 整数型, 数组<br />     .参数 cbFileInfo, 整数型<br />     .参数 uFlags, 整数型<br /> <br /> .DLL命令 lstrcpynA, 整数型, "kernel32", "lstrcpynA", , , 将源字符串中指定数量的字符复制到目标字符串中。此方法为将如果将iMaxLength设置为0，则通过此方法可以取到lpString1的地址。<br />     .参数 lpString1, 字节集, , 目标字符串<br />     .参数 lpString2, 字节集, , 源字符串<br />     .参数 iMaxLength, 整数型, , 复制的长度

获取文件图标.e (140.26 KB, 下载次数: 110)

2021-9-4 22:42 上传

点击文件名下载附件

wsysyb

谢谢分享

caohu1987

好像有问题

胡小星

能用到是能用，但是批量获取图标会闪退。。精易模块里面的文件_取图标没有这个问题。

faka23

来获取文件的图标，不只是exe文件，任何文件的图标都能获得，甚至文件夹

yingle

支持开源~！感谢分享

fxiaodi

谢谢分享

gdwlwl

啥都缺

gdwlwl

谢谢分享

wangkaitao6666

谢谢 楼主分享