禁止Alt+F4关闭窗口

mp624183768

dll

  

DLL命令名	返回值类型	公开	备 注
DeleteMenu	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
DeleteMenu
参数名	类 型	传址	数组	备 注
hMenu	整数型
nPosition	整数型
wFlags	整数型

DLL命令名	返回值类型	公开	备 注
GetMenuItemCount	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
GetMenuItemCount
参数名	类 型	传址	数组	备 注
hMenu	整数型

DLL命令名	返回值类型	公开	备 注
GetSystemMenu	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
GetSystemMenu
参数名	类 型	传址	数组	备 注
hwnd	整数型
bRevert	整数型

DLL命令名	返回值类型	公开	备 注
CallWindowProcA	整数型
DLL库文件名:
在DLL库中对应命令名:
CallWindowProcA
参数名	类 型	传址	数组	备 注
程序指针	子程序指针
窗口句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

DLL命令名	返回值类型	公开	备 注
SetWindowLongA	子程序指针
DLL库文件名:
在DLL库中对应命令名:
SetWindowLongA
参数名	类 型	传址	数组	备 注
窗口句柄	整数型
要置的特征	整数型
新特征	子程序指针			仅易语言3.0支持

.版本 2<br /> <br /> .DLL命令 DeleteMenu, 整数型, "user32", "DeleteMenu"<br />     .参数 hMenu, 整数型<br />     .参数 nPosition, 整数型<br />     .参数 wFlags, 整数型<br /> <br /> .DLL命令 GetMenuItemCount, 整数型, "user32", "GetMenuItemCount"<br />     .参数 hMenu, 整数型<br /> <br /> .DLL命令 GetSystemMenu, 整数型, "user32", "GetSystemMenu"<br />     .参数 hwnd, 整数型<br />     .参数 bRevert, 整数型<br /> <br /> .DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"<br />     .参数 程序指针, 子程序指针<br />     .参数 窗口句柄, 整数型<br />     .参数 消息, 整数型<br />     .参数 参数1, 整数型<br />     .参数 参数2, 整数型<br /> <br /> .DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"<br />     .参数 窗口句柄, 整数型<br />     .参数 要置的特征, 整数型<br />     .参数 新特征, 子程序指针, , 仅易语言3.0支持

源码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
hwndMenu	整数型
c	整数型

hwndMenu ＝ GetSystemMenu (取窗口句柄 (), 0)  ' 取得系统菜单句柄
c ＝ GetMenuItemCount (hwndMenu)  ' 取得菜单项数
DeleteMenu (hwndMenu, c － 1, #MF_BYPOSITION )  ' 删除关闭菜单项并使窗口关闭按钮失效
DeleteMenu (hwndMenu, c － 2, #MF_BYPOSITION )  ' 删除关闭菜单项上面的分割条，可删可不删
默认窗口 ＝ SetWindowLongA (取窗口句柄 (), -4, &处理)  ' 子类化窗口

子程序名	返回值类型	公开	备 注
处理	整数型		不要修改该子程序的返回值及参数的类型！
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

变量名	类 型	静态	数组	备 注
idx
bb

如果真 (消息 ＝ 274 且 参数1 ＝ 61536 且 参数2 ＝ 0)  ' 截获Alt＋F4关闭窗口消息
返回 (1)  ' 过滤截获的消息
返回 (CallWindowProcA (默认窗口, 句柄, 消息, 参数1, 参数2))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

结束 ()

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 hwndMenu, 整数型<br /> .局部变量 c, 整数型<br /> <br /> hwndMenu ＝ GetSystemMenu (取窗口句柄 (), 0)  ' 取得系统菜单句柄<br /> c ＝ GetMenuItemCount (hwndMenu)  ' 取得菜单项数<br /> DeleteMenu (hwndMenu, c － 1, #MF_BYPOSITION)  ' 删除关闭菜单项并使窗口关闭按钮失效<br /> DeleteMenu (hwndMenu, c － 2, #MF_BYPOSITION)  ' 删除关闭菜单项上面的分割条，可删可不删<br /> 默认窗口 ＝ SetWindowLongA (取窗口句柄 (), -4, &处理)  ' 子类化窗口<br /> <br /> .子程序 处理, 整数型, , 不要修改该子程序的返回值及参数的类型！<br /> .参数 句柄, 整数型<br /> .参数 消息, 整数型<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> .局部变量 idx<br /> .局部变量 bb<br /> <br /> .如果真 (消息 ＝ 274 且 参数1 ＝ 61536 且 参数2 ＝ 0)  ' 截获Alt＋F4关闭窗口消息<br />     返回 (1)  ' 过滤截获的消息<br /> .如果真结束<br /> 返回 (CallWindowProcA (默认窗口, 句柄, 消息, 参数1, 参数2))<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 结束 ()

caoxiaojun521

返回 (假返回 (假)返回 (假)

风九幽

学习了，多谢楼主无私分享！

JunnyHAHA

only3880 发表于 2018-4-24 19:34
还用这么麻烦啊？窗口可否被关闭事件里返回(假)，Alt+F4就关不掉了。

哈哈哈哈前列腺你还让不让别人发炎

only3880

还用这么麻烦啊？窗口可否被关闭事件里返回(假)，Alt+F4就关不掉了。

502362684

谢谢分享！！

zhulei0524

学习了，谢谢分享

dhwc

学习了，谢谢！

h34164708k

学习了，多谢楼主分享

飞翔的菜鸟

学习了，多谢楼主无私分享！

sktyou

给力