易语言根据图像取句柄源码

系统结构:释放图像句柄,获取图像句柄,Release,get_Type,get_Handle,GlobalAlloc,GlobalLock,RtlMoveMemory_字节集,GlobalUnlock,CreateStreamOnHGlobal,OleLoadPicture,CopyImage,CopyIcon,GlobalFree,DestroyIcon,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 释放图像句柄
           |  |
           |  |------ 获取图像句柄
           |  |
           |  |------ Release
           |  |
           |  |------ get_Type
           |  |
           |  |------ get_Handle
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   RtlMoveMemory_字节集
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   OleLoadPicture
           |  |
           |  |---[dll]------   CopyImage
           |  |
           |  |---[dll]------   CopyIcon
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   DestroyIcon

调用的DLL命令:

.DLL命令 GlobalAlloc, 整数型, "kernel32", "GlobalAlloc", , 在堆中分配内存
    .参数 uFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalLock, 整数型, "kernel32", "GlobalLock"
    .参数 hMem, 整数型

.DLL命令 RtlMoveMemory_字节集, 整数型, "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 字节集
    .参数 Length, 整数型

.DLL命令 GlobalUnlock, 整数型, "kernel32", "GlobalUnlock"
    .参数 hMem, 整数型

.DLL命令 CreateStreamOnHGlobal, 整数型, "ole32", "CreateStreamOnHGlobal"
    .参数 hGlobal, 整数型
    .参数 fDeleteOnRelease, 整数型
    .参数 ppstm, 整数型, 传址, 对象

.DLL命令 OleLoadPicture, 整数型, "olepro32", "OleLoadPicture"
    .参数 pStream, 整数型, , 对象
    .参数 lSize, 整数型
    .参数 fRunmode, 整数型
    .参数 riid, 字节集, 传址, any
    .参数 ppvObj, 整数型, 传址, Any

.DLL命令 CopyImage, 整数型, "user32", "CopyImage"
    .参数 hImage, 整数型
    .参数 uType, 整数型
    .参数 cxDesired, 整数型
    .参数 cyDesired, 整数型
    .参数 fuFlags, 整数型

.DLL命令 CopyIcon, 整数型, "user32", "CopyIcon"
    .参数 hIcon, 整数型

.DLL命令 GlobalFree, 整数型, "kernel32", "GlobalFree", , 释放全局内存块
    .参数 hMem, 整数型

.DLL命令 DestroyIcon, 整数型, "user32", "DestroyIcon", , 清除图标  非零表示成功，零表示失败。会设置GetLastError
    .参数 hIcon, 整数型, , 图标句柄;