易语言取任意文件图标模块源码 [db:版本]

易语言取任意文件图标模块源码

系统结构:取任意文件图标,GetImageListSH,A2W,释放图标句柄,ImageList_GetIconSize,SHGetImageList,DestroyIcon,ImageList_Destroy,ImageList_GetIcon,ImageList_GetImageCount,MultiByteToWideChar,CLSIDFromString,SHGetFileInfo,

======程序集
| |
| |------ _启动子程序
| |
| |
======取任意文件图标
| |
| |------ 取任意文件图标
| |
| |------ GetImageListSH
| |
| |------ A2W
| |
| |------ 释放图标句柄
| |
| |
======调用的Dll
| |
| |---[dll]------ ImageList_GetIconSize
| |
| |---[dll]------ SHGetImageList
| |
| |---[dll]------ DestroyIcon
| |
| |---[dll]------ ImageList_Destroy
| |
| |---[dll]------ ImageList_GetIcon
| |
| |---[dll]------ ImageList_GetImageCount
| |
| |---[dll]------ MultiByteToWideChar
| |
| |---[dll]------ CLSIDFromString
| |
| |---[dll]------ SHGetFileInfo

调用的DLL命令:

.DLL命令 ImageList_GetIconSize, 逻辑型, "comctl32.dll", "ImageList_GetIconSize", , ,
.参数 himl, 整数型
.参数 cx, 整数型, 传址
.参数 cy, 整数型, 传址

.DLL命令 SHGetImageList, 整数型, "Shell32.dll", "SHGetImageList", , ,
.参数 imageList, 整数型
.参数 riid, 字节集
.参数 handle, 整数型, 传址

.DLL命令 DestroyIcon, 逻辑型, "User32.dll", "DestroyIcon", , ,
.参数 hIcon, 整数型

.DLL命令 ImageList_Destroy, 逻辑型, "Comctl32.dll", "ImageList_Destroy", , ,
.参数 himl, 整数型

.DLL命令 ImageList_GetIcon, 整数型, "Comctl32.dll", "ImageList_GetIcon", , 在图像列表中根据图像和掩码生成图标。
.参数 himl, 整数型
.参数 i, 整数型
.参数 flags, 整数型

.DLL命令 ImageList_GetImageCount, 整数型, "Comctl32.dll", "ImageList_GetImageCount", , ,
.参数 himl, 整数型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar", , ,
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpMultiByteStr, 文本型
.参数 cchMultiByte, 整数型
.参数 lpWideCharStr, 字节集
.参数 cchWideChar, 整数型

.DLL命令 CLSIDFromString, , "ole32.dll", "CLSIDFromString", , ,
.参数 lpsz, 字节集
.参数 pclsid, 字节集, 传址

.DLL命令 SHGetFileInfo, 整数型, "Shell32.dll", "SHGetFileInfoA", , ,
.参数 pszPath, 文本型
.参数 dwFileAttributes, 整数型
.参数 psfi, SHFILEINFO
.参数 cbFileInfo, 整数型
.参数 uFlags, 整数型