易语言API更改图标源码

系统结构:W2A,A2W,ChangeIconDialog,SHChangeIconDialog,WideCharToMultiByte,MultiByteToWideChar,

======窗口程序集1
           |  |
           |  |------ W2A
           |  |
           |  |------ A2W
           |  |
           |  |------ ChangeIconDialog
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SHChangeIconDialog
           |  |
           |  |---[dll]------   WideCharToMultiByte
           |  |
           |  |---[dll]------   MultiByteToWideChar

调用的DLL命令:

.DLL命令 SHChangeIconDialog, 整数型, "shell32.dll", "#62"
    .参数 hOwner
    .参数 szFileName, 字节集, 传址
    .参数 dwBufferSize
    .参数 IconIndex, , 传址

.DLL命令 WideCharToMultiByte, 整数型, "kernel32", "WideCharToMultiByte", , 将通配符映像为多字节
    .参数 代码页, 整数型, , cp_开头常量
    .参数 标志, 整数型, , 512
    .参数 宽字符文本, 字节集, , 字节集
    .参数 宽字符文本长度, 整数型
    .参数 双字节文本, 文本型, , 字节集
    .参数 双字节文本长度, 整数型
    .参数 默认文本, 整数型
    .参数 使用默认文本, 整数型, , 逻辑

.DLL命令 MultiByteToWideChar, 整数型, "kernel32", "MultiByteToWideChar", , 将多媒体字符串映像为通配字符串
    .参数 代码页, 整数型
    .参数 标志, 整数型
    .参数 双字节文本, 文本型
    .参数 双字节文本长度, 整数型
    .参数 宽字符文本, 字节集
    .参数 宽字符文本长度, 整数型