易语言API操作超级列表框小图标不失真版源码

系统结构:SHGetFileInfo,ImageList_Create,ImageList_AddIcon,ImageList_SetBkColor,ImageList_SetImageCount,ImageList_ReplaceIcon,ImageList_Remove,DestroyIcon,ImageList_Destroy,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SHGetFileInfo
           |  |
           |  |---[dll]------   ImageList_Create
           |  |
           |  |---[dll]------   ImageList_AddIcon
           |  |
           |  |---[dll]------   ImageList_SetBkColor
           |  |
           |  |---[dll]------   ImageList_SetImageCount
           |  |
           |  |---[dll]------   ImageList_ReplaceIcon
           |  |
           |  |---[dll]------   ImageList_Remove
           |  |
           |  |---[dll]------   DestroyIcon
           |  |
           |  |---[dll]------   ImageList_Destroy

调用的DLL命令:

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

.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命令 DestroyIcon, 整数型, "user32", "DestroyIcon", , 清除图标  非零表示成功，零表示失败。会设置GetLastError
    .参数 图标句柄, 整数型, , 图标句柄;

.DLL命令 ImageList_Destroy, 整数型, "comctl32.dll", "ImageList_Destroy", , 取文件图标
    .参数 himl