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

易语言取文件关联图标模块源码

系统结构:置超级列表框图标,图片索引,取文件信息,ImageList_Create,ImageList_AddIcon,ImageList_SetBkColor,ImageList_SetImageCount,ImageList_ReplaceIcon,ImageList_Remove,ImageList_Destroy,发送通报消息_,SHGetFileInfo,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |------ 置超级列表框图标
| |
| |------ 图片索引
| |
| |------ 取文件信息
| |
| |
======调用的Dll
| |
| |---[dll]------ ImageList_Create
| |
| |---[dll]------ ImageList_AddIcon
| |
| |---[dll]------ ImageList_SetBkColor
| |
| |---[dll]------ ImageList_SetImageCount
| |
| |---[dll]------ ImageList_ReplaceIcon
| |
| |---[dll]------ ImageList_Remove
| |
| |---[dll]------ ImageList_Destroy
| |
| |---[dll]------ 发送通报消息_
| |
| |---[dll]------ SHGetFileInfo

调用的DLL命令:

.DLL命令 ImageList_Create, 整数型, "comctl32.dll", "ImageList_Create"
.参数 cx
.参数 cy
.参数 flags
.参数 cInitial
.参数 cGrow

.DLL命令 ImageList_AddIcon, 整数型, "comctl32.dll", "ImageList_AddIcon"
.参数 himl
.参数 hicon

.DLL命令 ImageList_SetBkColor, 整数型, "comctl32.dll", "ImageList_SetBkColor"
.参数 himl, 整数型
.参数 clrBk, 整数型

.DLL命令 ImageList_SetImageCount, 整数型, "comctl32.dll", "ImageList_SetImageCount"
.参数 himl, 整数型
.参数 uNewCount, 整数型

.DLL命令 ImageList_ReplaceIcon, 整数型, "comctl32.dll", "ImageList_ReplaceIcon"
.参数 himl, 整数型
.参数 i, 整数型
.参数 hicon, 整数型

.DLL命令 ImageList_Remove, 整数型, "comctl32.dll", "ImageList_Remove"
.参数 himl, 整数型

.DLL命令 ImageList_Destroy, 整数型, "comctl32.dll", "ImageList_Destroy"
.参数 himl

.DLL命令 发送通报消息_, 整数型, "user32.dll", "SendNotifyMessageA", , , SendNotifyMessage，向窗口发送一条消息。如目标窗口位于同调用方相同的线程内，则这个函数会表现为SendMessage函数。而且除非消息得到处理，否则函数不会返回。如目标窗口从属于一个不同的线程，则函数会立即返回Long，TRUE表示成功，FALSE表示出错。会设置GetLastError
.参数 窗口句柄, 整数型, , hwnd，用于接收消息的一个窗口的句柄
.参数 标识符, 整数型, , wmsg，消息的标识符
.参数 消息1, 整数型, , wParam，具体由消息决定
.参数 消息2, 整数型, , lParam，具体由消息决定

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