Delphi 禁止Alt+F4关闭

本文整理自网络，侵删。

 
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;  
  
procedure WMSysCommand(var Msg: TWMSysCommand);  
begin  
  if Msg.CmdType <> SC_CLOSE then  
    inherited  
end; 
 

相关阅读 >>

Delphi 简单的登录窗口

Delphi package 把函数单元做成bpl调用

Delphi 获取系统内存状态

最简单的Delphi程序(控制台)

Delphi 字符串加密解密(不支持中文)

Delphi 动态创建一个ipedit控件

Delphi windows 编程[6] - 学习窗体生成的过程六: 最终的代码!

Delphi 调用dll文件中的form

Delphi 10.3 控件遮挡 webbrowser

Delphi webbrowser载入自定义html内容并显示

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 禁止Alt+F4关闭