易语言取光标位置窗口句柄源码

系统结构:取光标位置窗口句柄,GetCursorPos,WindowFromPoint,ChildWindowFromPointEx,ScreenToClient,IsWindow,画框框_,画框框,探测窗口,取屏幕句柄_,取窗口全部设备场景_,默认光栅运算_,创建画笔_,选入设备场景_,画矩形_,延迟时间_,删除对象_,释放设备场景_,GetWindowRect,SetCapture,ReleaseCapture,SetTimer,KillTimer,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 取光标位置窗口句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   ChildWindowFromPointEx
           |  |
           |  |---[dll]------   ScreenToClient
           |  |
           |  |---[dll]------   IsWindow
  ======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 画框框_
           |  |
           |  |------ 画框框
           |  |
           |  |------ _图片框1_鼠标左键被按下
           |  |
           |  |------ _图片框1_鼠标左键被放开
           |  |
           |  |------ _图片框1_鼠标位置被移动
           |  |
           |  |------ 探测窗口
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取屏幕句柄_
           |  |
           |  |---[dll]------   取窗口全部设备场景_
           |  |
           |  |---[dll]------   默认光栅运算_
           |  |
           |  |---[dll]------   创建画笔_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   画矩形_
           |  |
           |  |---[dll]------   延迟时间_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   KillTimer

调用的DLL命令:

.DLL命令 GetCursorPos, 逻辑型, , "GetCursorPos"
    .参数 lpPoint, Point, 传址

.DLL命令 WindowFromPoint, 整数型, , "WindowFromPoint"
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 ChildWindowFromPointEx, 整数型, "user32", "ChildWindowFromPointEx"
    .参数 hWnd, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 un, 整数型

.DLL命令 ScreenToClient, 整数型, "user32", "ScreenToClient"
    .参数 hwnd, 整数型
    .参数 lpPoint, Point, 传址

.DLL命令 IsWindow, 整数型, "user32", "IsWindow"
    .参数 hwnd, 整数型

调用的DLL命令:

.DLL命令 取屏幕句柄_, 整数型, "user32", "GetDesktopWindow", , ,

.DLL命令 取窗口全部设备场景_, 整数型, "user32.dll", "GetWindowDC", , ,
    .参数 窗口句柄, 整数型

.DLL命令 默认光栅运算_, 整数型, "gdi32", "SetROP2", , ,
    .参数 设备场景, 整数型
    .参数 光栅运算方式, 整数型

.DLL命令 创建画笔_, 整数型, "gdi32", "CreatePen", , ,
    .参数 风格, 整数型
    .参数 宽度, 整数型
    .参数 颜色, 整数型

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

.DLL命令 画矩形_, 整数型, "gdi32.dll", "Rectangle", , , Rectangle
    .参数 设备场景句柄, 整数型, , hdc
    .参数 左上角横坐标, 整数型, , X
    .参数 左上角纵坐标, 整数型, , Y
    .参数 右下角横坐标, 整数型, , X1
    .参数 右下角纵坐标, 整数型, , Y1

.DLL命令 延迟时间_, 整数型, "kernel32.dll", "Sleep", , , Sleep
    .参数 延迟秒数, 整数型, , dwMilliseconds

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

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

.DLL命令 GetWindowRect, 整数型, "user32.dll", "GetWindowRect"
    .参数 句柄, 整数型
    .参数 大小, RECT, 传址

.DLL命令 SetCapture, 整数型, , "SetCapture", , 将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候，这个窗口会为当前应用程序或整个系统接收所有鼠标输入
    .参数 hwnd, 整数型, , 要接收所有鼠标输入的窗口的句柄

.DLL命令 ReleaseCapture, 整数型, , "ReleaseCapture", , 为当前的应用程序释放鼠标捕获

.DLL命令 SetTimer, 整数型, "user32", "SetTimer"
    .参数 hWnd, 整数型
    .参数 nIDEvent, 整数型
    .参数 uElapse, 整数型
    .参数 lpTimerFunc, 整数型

.DLL命令 KillTimer, 整数型, "user32", "KillTimer"
    .参数 hwnd, 整数型
    .参数 nIDEvent, 整数型