获取文件图标 - 精易论坛

子程序名	返回值类型	公开	备注
获取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, 整数型, , 复制的长度