易语言按钮按下状态恢复源码

系统结构:错误提示管理_,圆角化窗口,SystemParametersInfoA,CoInitialize,CoUninitialize,GetVersionExA,GetWindowRect,CreateRoundRectRgn,SetWindowRgn,DeleteObject,SetWindowLongA,GetWindowLongA,

======主窗口程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _窗口_主窗口_创建完毕
           |  |
           |  |------ 错误提示管理_
           |  |
           |  |------ _最小化_鼠标左键被按下
           |  |
           |  |------ _最小化_鼠标左键被放开
           |  |
           |  |------ _关闭_鼠标左键被按下
           |  |
           |  |------ _关闭_鼠标左键被放开
           |  |
           |  |------ _最小化_被单击
           |  |
           |  |------ _关闭_被单击
           |  |
           |  |------ _确定_鼠标左键被按下
           |  |
           |  |------ _确定_鼠标左键被放开
           |  |
           |  |------ _确定_被单击
           |  |
           |  |------ _取消_鼠标左键被按下
           |  |
           |  |------ _取消_鼠标左键被放开
           |  |
           |  |------ _取消_被单击
           |  |
           |  |------ _图片框1_鼠标左键被按下
           |  |
           |  |------ _标题_鼠标左键被按下
           |  |
           |  |------ _窗口_主窗口_被激活
           |  |
           |  |------ _窗口_主窗口_被取消激活
           |  |
           |  |------ 圆角化窗口
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SystemParametersInfoA
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize
           |  |
           |  |---[dll]------   GetVersionExA
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   CreateRoundRectRgn
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   GetWindowLongA

调用的DLL命令:

.DLL命令 SystemParametersInfoA, 整数型, "user32.dll", "SystemParametersInfoA"
    .参数 uAction, 整数型
    .参数 uParam, 整数型
    .参数 lpvParam, 整数型
    .参数 uWinIni, 整数型

.DLL命令 CoInitialize, 整数型, "ole32.dll"
    .参数 pvReserved, 整数型

.DLL命令 CoUninitialize, , "ole32.dll"

.DLL命令 GetVersionExA, 逻辑型
    .参数 lpVersionInfo, 整数型, 传址 数组

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

.DLL命令 CreateRoundRectRgn, 整数型, , "CreateRoundRectRgn"
    .参数 x1
    .参数 y1
    .参数 x2
    .参数 y2
    .参数 x3
    .参数 y3

.DLL命令 SetWindowRgn, , , "SetWindowRgn"
    .参数 hWnd
    .参数 hRgn
    .参数 bRedraw, 逻辑型

.DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放,非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA"
    .参数 hwnd
    .参数 nIndex
    .参数 dwNewLong

.DLL命令 GetWindowLongA, 整数型, , "GetWindowLongA"
    .参数 hwnd
    .参数 nIndex