易语言取鼠标句柄源码

系统结构:画图标_,取当前指针句柄_,释放设备场景_,取设备场景_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_被双击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   画图标_
           |  |
           |  |---[dll]------   取当前指针句柄_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   取设备场景_

调用的DLL命令:

.DLL命令 画图标_, 整数型, "user32.dll", "DrawIcon", , 在指定的位置画一个图标  非零表示成功，零表示失败。会设置GetLastError
    .参数 设备场景句柄, 整数型, , hdc Long，设备场景 
    .参数 横坐标, 整数型, , x,y Long，想描绘图标的位置（逻辑坐标） 
    .参数 纵坐标, 整数型, , 同上
    .参数 图标句柄, 整数型, , hIcon Long，欲描绘图标的句柄 

.DLL命令 取当前指针句柄_, 整数型, "user32", "GetCursor"

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , ReleaseDC
    .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄

.DLL命令 取设备场景_, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;