为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 易语言相关 > 易语言例程 正文

易语言禁止外部消息关闭窗口

三叶资源网 2019-10-19 22:25:30 易语言例程 2457 ℃ 5 评论
.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 窗口信息, 整数型

.子程序 _按钮1_被单击

销毁 ()

.子程序 _按钮2_被单击

结束 ()

.子程序 _按钮3_被单击

发送信息 (16, 0, 0)

.子程序 _按钮5_被单击

PostMessageA (取窗口句柄 (), 16, 0, 0)

.子程序 _按钮4_被单击

SendMessageA (取窗口句柄 (), 16, 0, 0)

.子程序 __启动窗口_将被销毁

.如果真 (窗口信息 ≠ 0)
    SetWindowLongA (取窗口句柄 (), -4, 窗口信息)
.如果真结束


.子程序 _选择框1_被单击

.判断开始 (选择框1.选中)
    窗口信息 = SetWindowLongA (取窗口句柄 (), -4, 到整数 (&消息处理))  ' 获取窗口消息
.默认
    SetWindowLongA (取窗口句柄 (), -4, 窗口信息)
.判断结束


.子程序 消息处理, 整数型
.参数 句柄
.参数 消息
.参数 参数1
.参数 参数2

.如果真 (消息 = 16)  ' 如果消息值是关闭,返回0  不执行
    返回 (0)
.如果真结束
返回 (CallWindowProcA (窗口信息, 句柄, 消息, 参数1, 参数2))  ' 否则把消息返回

@福仔

文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有5位网友发表了看法:

  • 资源站

    资源站  评论于 [2021-05-06 18:24:54]  回复

    易语言禁止窗口关闭

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
正则表达式测试工具apihookTencent龙珠直播采集系统核心支持库支持库源码易语言支持库失败代码取QQ昵称58t同城发送文本call酷Q AirTencent企点加好友易CEF3浏览器支持库远程端口QQ源码高性能JSON库取色器QQ好友批量点名片赞FindPath
最新评论