易语言调用360云鉴定源码

系统结构:取网页信息_普通用,开始检测,取文件图标,取设备场景_,释放设备场景_,取文件信息_,图像列表_绘画_,图像列表_绘画扩展_,

======高级功能
           |  |
           |  |------ 取网页信息_普通用
           |  |
           |  |
======窗口_360云鉴定程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 开始检测
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ 取文件图标
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   取文件信息_
           |  |
           |  |---[dll]------   图像列表_绘画_
           |  |
           |  |---[dll]------   图像列表_绘画扩展_

调用的DLL命令:

.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

.DLL命令 图像列表_绘画扩展_, 整数型, "comctl32.dll", "ImageList_DrawEx", , $(b)
    .参数 图像列表句柄, 整数型, , himl
    .参数 索引, 整数型, , i
    .参数 目标设备场景句柄, 整数型, , hdcDst
    .参数 横坐标, 整数型, , x
    .参数 纵坐标, 整数型, , y
    .参数 宽度, 整数型, , dx
    .参数 高度, 整数型, , dy
    .参数 背景rgb, 整数型, , rgbBk
    .参数 前景rgb, 整数型, , rgbFg
    .参数 标志类型, 整数型, , fStyle