本文整理自网络,侵删。
delphi 如何屏蔽Alt+F4
procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND;
procedure tform1.WMSysCommand(var Msg: TMessage);
begin
if Msg.wParam <> SC_CLOSE then
inherited;
end;
相关阅读 >>
Delphi mediaplayer循环播放mp3所有音乐文件问题?
Delphi idhttp最简洁的修改和取得cookie例子
github上通过星级评估排名前10的最受欢迎的开源Delphi项目
更多相关阅读请进入《Delphi》频道 >>