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开发获取文件md5值

Delphi中关闭“返回值…可能未定义”的警告

Delphi通过url获取网页源码

Delphi获取身份证号码验证码算法

Delphi自动适应屏幕分辨率的属性

Delphi 对指定dbgrid进行排序

Delphi android 保持唤醒状态

Delphi10.3通过json.serializers单元对大量数据序列化

Delphi生成随机字符串

Delphi 小票打印开钱箱 自动切纸指令

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

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