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的串口通讯，数据接收实时性太差

dbgrideh 组件在borland开发工具中应用全攻略

Delphi xe6 switch元件�繁�w���}

Delphi 2009 之 tstringbuilder 类[3]: replace

Delphi实现保存和读取图片的方法

postmessage和sendmessage的区别

Delphi 自定义产生随机字符串函数

Delphi 批量多个字符串合并一个txt文件

Delphi 2009 泛型容器单元(generics.collections)[1]: tlist<t>

Delphi 优化mdb文件

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

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