易语言允许禁止关闭源码

系统结构:设置进度,禁止关闭,允许关闭,EnableMenuItem,GetSystemMenu,重画窗口_,取窗口矩形_,

======窗口程序集1
           |  |
           |  |------ 设置进度
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======模块_允许禁止关闭
           |  |
           |  |------ 禁止关闭
           |  |
           |  |------ 允许关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   EnableMenuItem
           |  |
           |  |---[dll]------   GetSystemMenu
           |  |
           |  |---[dll]------   重画窗口_
           |  |
           |  |---[dll]------   取窗口矩形_

调用的DLL命令:

.DLL命令 EnableMenuItem, 整数型, "user32.dll", "EnableMenuItem", , 允许或禁止指定的菜单条目
    .参数 hMenu, 整数型
    .参数 wIDEnableItem, 整数型
    .参数 wEnable, 整数型

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

.DLL命令 重画窗口_, 逻辑型, "user32", "RedrawWindow"
    .参数 窗口句柄, 整数型
    .参数 矩形, 矩形_
    .参数 区域, 整数型
    .参数 旗帜, 整数型

.DLL命令 取窗口矩形_, 逻辑型, "user32", "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_