易语言选择夹设置图标源码

系统结构:ImageList_Create,取系统默认色_,ImageList_SetBkColor,SendMessage,SHGetFileInfo,ImageList_AddIcon,取整数地址_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ImageList_Create
           |  |
           |  |---[dll]------   取系统默认色_
           |  |
           |  |---[dll]------   ImageList_SetBkColor
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SHGetFileInfo
           |  |
           |  |---[dll]------   ImageList_AddIcon
           |  |
           |  |---[dll]------   取整数地址_

调用的DLL命令:

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

.DLL命令 取系统默认色_, 整数型, "user32", "GetSysColor"
    .参数 类型, 整数型

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

.DLL命令 SendMessage, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wparam, 整数型
    .参数 lparam, 整数型

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

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

.DLL命令 取整数地址_, 整数型, "kernel32.dll", "lstrcpyn"
    .参数 数据1, 整数型, 传址, lpString1
    .参数 数据2, 整数型, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength