----在下面这个例子中,我们在窗体中加入一个复选框(CHECKBOX),如果用户不选中它,则无法关闭WIN9X,如果选中它,才可以关闭。在实际应用中,用户可首先设定 一个布尔变量,当所需的作操都完成后,使其值变化,当程序检测到这个变量的值变化后才允许关闭WIN9X。为方便大家使用,给出窗体的完整代码(很短): unitUnit1; interface uses Windows,Messages,SysUtils, Classes,Graphics,Controls, Forms,Dialogs,StdCtrls; type TForm1=class(TForm) CheckBox1:TCheckBox; private {Privatedeclarations} //声明拦截WM_QueryEndSession消息的过程 procedureWMQueryEndSession(varMsg:TMessage); messageWM_QueryEndSession; public {Publicdeclarations} end; var Form1:TForm1; implementation {$R*.DFM} procedureTForm1.WMQueryEndSession (varMsg:TMessage); begin ifCheckBox1.CheckedthenMsg.Result:=1 elseMsg.Result:=0; end; end. ----运行上面的程序,首先不要选中复选框,在WIN9X的“开始”菜单中选择“关闭系统\关闭计算机或重新启动计算机”,你将发现屏幕闪烁了一下又恢复了正常;将 复选框选中,再关闭计算机,这下就可如愿了。 ----程序调试环境:DELPHI4,中文WIN98。 没有相关教程
unitUnit1; interface uses Windows,Messages,SysUtils, Classes,Graphics,Controls, Forms,Dialogs,StdCtrls; type TForm1=class(TForm) CheckBox1:TCheckBox; private {Privatedeclarations} //声明拦截WM_QueryEndSession消息的过程 procedureWMQueryEndSession(varMsg:TMessage); messageWM_QueryEndSession; public {Publicdeclarations} end; var Form1:TForm1; implementation {$R*.DFM} procedureTForm1.WMQueryEndSession (varMsg:TMessage); begin ifCheckBox1.CheckedthenMsg.Result:=1 elseMsg.Result:=0; end; end.
----运行上面的程序,首先不要选中复选框,在WIN9X的“开始”菜单中选择“关闭系统\关闭计算机或重新启动计算机”,你将发现屏幕闪烁了一下又恢复了正常;将 复选框选中,再关闭计算机,这下就可如愿了。 ----程序调试环境:DELPHI4,中文WIN98。 没有相关教程
----程序调试环境:DELPHI4,中文WIN98。
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18