易语言图标提取例程源码

系统结构:转换为单32位,编辑图标,图标预览,填充,绘画,映射到图标,图像_屏幕取色,透明处理,句柄画图标,取颜色_,取设备场景_,释放设备场景_,取文件信息_,图像列表_绘画_,

======窗口程序集1
           |  |
           |  |------ 转换为单32位
           |  |
           |  |------ 编辑图标
           |  |
           |  |------ 图标预览
           |  |
           |  |------ 填充
           |  |
           |  |------ 绘画
           |  |
           |  |------ 映射到图标
           |  |
           |  |------ 图像_屏幕取色
           |  |
           |  |------ 透明处理
           |  |
           |  |------ 句柄画图标
           |  |
           |  |------ _浏览_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取颜色_
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   取文件信息_
           |  |
           |  |---[dll]------   图像列表_绘画_

调用的DLL命令:

.DLL命令 取颜色_, 整数型, "gdi32.dll", "GetPixel"
    .参数 设备场景的句柄, 整数型
    .参数 坐标, 整数型
    .参数 坐标1, 整数型

.DLL命令 取设备场景_, 整数型, "User32", "GetDC", , $(b)
    .参数 设备场景, 整数型

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , $(b)
    .参数 窗口句柄, 整数型
    .参数 设备场景, 整数型

.DLL命令 取文件信息_, 整数型, "shell32.dll", "SHGetFileInfoA", , $(b)SHGetFileInfo
    .参数 文件路径, 文本型, , pszPath
    .参数 文件属性, 整数型, , dwFileAttributes
    .参数 文件信息结构, 文件信息_, , psfi
    .参数 文件信息结构大小, 整数型, , cbFileInfo
    .参数 信息标志, 整数型, , uFlags

.DLL命令 图像列表_绘画_, 整数型, "comctl32.dll", "ImageList_Draw", , $(b)
    .参数 图像列表句柄, 整数型, , himl
    .参数 索引, 整数型, , i
    .参数 目标设备场景句柄, 整数型, , hdcDst
    .参数 横坐标, 整数型, , x
    .参数 纵坐标, 整数型, , y
    .参数 标志类型, 整数型, , fStyle