易语言API快照源码

系统结构:带鼠标快照,删除设备场景_,创建内存场景_,取设备场景_,选入设备场景_,创建设备位图_,复制场景位图_,画图标_,释放设备场景_,取鼠标信息_,取得图标信息_,删除对象_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 带鼠标快照
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   删除设备场景_
           |  |
           |  |---[dll]------   创建内存场景_
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   创建设备位图_
           |  |
           |  |---[dll]------   复制场景位图_
           |  |
           |  |---[dll]------   画图标_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   取鼠标信息_
           |  |
           |  |---[dll]------   取得图标信息_
           |  |
           |  |---[dll]------   删除对象_

调用的DLL命令:

.DLL命令 删除设备场景_, 整数型, , "DeleteDC", , gdi32.dll删除专用设备场景或信息场景，释放所有相关窗口资源。不要将它用于GetDC函数取回的设备场景,执行成功则为非零，失败则为零
    .参数 hdc, , , 将要删除的设备场景

.DLL命令 创建内存场景_, 整数型, , "CreateCompatibleDC"
    .参数 hdc, 整数型

.DLL命令 取设备场景_, 整数型, , "GetDC"
    .参数 窗口的句柄

.DLL命令 选入设备场景_, 整数型, , "SelectObject"
    .参数 场景句柄
    .参数 对象句柄

.DLL命令 创建设备位图_, 整数型, , "CreateCompatibleBitmap"
    .参数 hdc
    .参数 nWidth
    .参数 nHeight

.DLL命令 复制场景位图_, 整数型, , "BitBlt"
    .参数 hdcDest
    .参数 nXDest
    .参数 nYDest
    .参数 nWidth
    .参数 nHeight
    .参数 hdcSrc
    .参数 nXSrc
    .参数 nYSrc
    .参数 dwRop

.DLL命令 画图标_, 整数型, , "DrawIcon"
    .参数 设备场景句柄
    .参数 横坐标
    .参数 纵坐标
    .参数 图标句柄

.DLL命令 释放设备场景_, 整数型, , "ReleaseDC"
    .参数 hWnd, 整数型
    .参数 hDC, 整数型

.DLL命令 取鼠标信息_, 整数型, , "GetCursorInfo"
    .参数 pci, CURSORINFO

.DLL命令 取得图标信息_, 整数型, , "GetIconInfo"
    .参数 图标句柄
    .参数 图标信息, ICONINFO

.DLL命令 删除对象_, 整数型, "gdi32.dll", "DeleteObject", , , DeleteObject
    .参数 对象句柄, 整数型, , hObject,一个GDI对象的句柄