📄 关机.htm
字号:
<HTML><HEAD><TITLE>亦多EastDoor</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR><link rel="stylesheet" href="../eastdoor.css"></HEAD>
<BODY bgColor=#ffffff text=#000066 vLink=#e0e0e0>
<TABLE align=center border=0 borderColorLight=#90 cellPadding=0 cellSpacing=0
width=753>
<TBODY>
<TR align=middle>
<TD width=200 valign="top"><img src="../image/logo.gif" width="200" height="70"></TD>
<TD align=left height=56 vAlign=top width=603 colspan="2">
<div align="right">
<a href="http://202.113.29.120/">
<img src="../image/titlesoft.gif" height="72" border="0" alt="亦多下载中心"></a>
</div>
</TD>
</TR>
</TBODY>
</TABLE>
<div align="center"></div>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR>
<TD align=middle height=292 vAlign=top width="100%">
<TABLE align=center border=0 cellPadding=0 cellSpacing=1
width="100%" bgcolor="#6699CC">
<TBODY>
<TR align=left bgcolor="#FFFFFF">
<TD colSpan=4 vAlign=top height=2>
<div align="left">
<table width="100%" border=" 0" cellspacing="1">
<tr bgcolor="#C1D6EA">
<td>
<div align="center">-=<font color="#FFFF33">-</font> 编程中心
<font color="#FFFF33">-</font>=-</div>
</td>
</tr>
</table>
</div>
</TD>
</TR>
<TR vAlign=middle bgcolor="#6699CC">
<TD colSpan=4 height="325">
<TABLE border=0 cellSpacing=0 height=100% width="100%" align="center">
<TBODY>
<TR vAlign=top>
<TD width="67%" rowspan="2" bgcolor="#FFFFFF">
<p align="center">用Delphi实现禁止用户关闭Window9X
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="100%">
<p align="center">
<table border="0" width="100%" cellpadding="0">
<tr>
<td width="100%">---在软件的安装或演示操作等过程中，如果关闭WIN9X会产生严重的后果，就必须禁止用户关闭WIN9X，直到完成相应的操作，那么如何才能禁止用户关闭WIN9X呢？其实很简单，当用户关闭WIN9X时,系统会发送给各应用程序一个消息wm_queryendsession,告诉各应用程序要关机了，如果反馈回来的消息值为0,那么WIN9X就不能关机。因此，截获wm_queryendsession，并反馈回0，大功就告成了，下面是一个例子。
<p><FONTCOLOR="#FFFFFF">
----在下面这个例子中，我们在窗体中加入一个复选框（CHECKBOX），如果用户不选中它，则无法关闭WIN9X，如果选中它，才可以关闭。在实际应用中，用户可首先设定一个布尔变量，当所需的作操都完成后，使其值变化，当程序检测到这个变量的值变化后才允许关闭WIN9X。为方便大家使用，给出窗体的完整代码（很短）：
<pre>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.
</pre>
<p><FONTCOLOR="#FFFFFF">
----运行上面的程序，首先不要选中复选框，在WIN9X的“开始”菜单中选择“关闭系统\关闭计算机或重新启动计算机”，你将发现屏幕闪烁了一下又恢复了正常；将复选框选中，再关闭计算机，这下就可如愿了。
<p><FONTCOLOR="#FFFFFF">
----程序调试环境：DELPHI4,中文WIN98。</td>
</tr>
</table>
</td>
</tr>
</table>
转载于：<a href="http://www.yesky.com"target="_blank">天极网</a>
</TD>
</TR>
<TR vAlign=top> </TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width=755>
<TBODY>
<TR bgColor=#000000>
<TD align=middle colSpan=4 height=2 vAlign=top></TD>
</TR>
</TBODY>
</TABLE>
<script src="../footnote.js" class="Small" ></script>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -