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 操作系统时间与web标准时间校正

Delphi 在tmemo中查找文本

Delphi dos批命令打开应用程序同时关闭dos窗口本身

如何为Delphi程序添加事件和事件处理器

Delphi 递归遍历 treeview树节点

Delphi 外挂编写的几个api函数

Delphi cxgrid 通过字段名取得列

Delphi webbrowser控件的documentcomplete和downloadcomplete的区别

如何在Delphi中禁用关于“返回值...可能未定义”的警告？

Delphi将图片转换成文本支持转换回去

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

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