易语言窗口截图源码

系统结构:子程序1,PaintRect,SetTimer,GetCursorPos,WindowFromPoint,KillTimer,GetWindowRect,CreateDC,IsRectEmpty,PatBlt,DeleteDC,SetParent,GetParent,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _图形按钮1_鼠标左键被按下
           |  |
           |  |------ _图形按钮1_鼠标左键被放开
           |  |
           |  |------ 子程序1
           |  |
           |  |------ _图形按钮1_鼠标位置被移动
           |  |
           |  |------ PaintRect
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   KillTimer
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   CreateDC
           |  |
           |  |---[dll]------   IsRectEmpty
           |  |
           |  |---[dll]------   PatBlt
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   SetParent
           |  |
           |  |---[dll]------   GetParent

调用的DLL命令:

.DLL命令 SetTimer, 整数型
    .参数 hwnd, 整数型
    .参数 event, 整数型
    .参数 out, 整数型
    .参数 lpTimerFunc, 子程序指针

.DLL命令 GetCursorPos, 整数型
    .参数 位置, POINTAPI

.DLL命令 WindowFromPoint, 整数型
    .参数 xPoint, 整数型
    .参数 yPoint, 整数型

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

.DLL命令 GetWindowRect, 整数型
    .参数 hwnd, 整数型
    .参数 lpRect, RECT, , ;

.DLL命令 CreateDC, 整数型, , "CreateDCA"
    .参数 lpDriverName, 文本型
    .参数 lpDeviceName, 文本型
    .参数 lpOutput, 文本型
    .参数 lpInitData, DEVMODE

.DLL命令 IsRectEmpty, 整数型
    .参数 lpRect, RECT

.DLL命令 PatBlt, 整数型
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 dwRop, 整数型

.DLL命令 DeleteDC, 整数型
    .参数 hdc, 整数型

.DLL命令 SetParent, 整数型
    .参数 hWndChild, 整数型
    .参数 hWndNewParent, 整数型

.DLL命令 GetParent, 整数型
    .参数 hwnd, 整数型