易语言取本地后缀名文件图标模块源码

系统结构:取后缀名图标_SHG,取后缀名图标_注册表,SHGetFileInfo,ExtractIconEx,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 取后缀名图标_SHG
           |  |
           |  |------ 取后缀名图标_注册表
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SHGetFileInfo
           |  |
           |  |---[dll]------   ExtractIconEx

调用的DLL命令:

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

.DLL命令 ExtractIconEx, 整数型, "shell32.dll", "ExtractIconExA", , 成功返回 ico图标个数 失败返回-1
    .参数 lpszFile, 文本型
    .参数 nIconIndex, 整数型
    .参数 phiconLarge, 整数型, 传址
    .参数 phiconSmall, 整数型, 传址
    .参数 nIcons, 整数型