---在軟件的安裝或演示操作等過(guò)程中，如果關(guān)閉WIN9X會(huì)產(chǎn)生嚴(yán)重的后果，就必須禁止用戶(hù)關(guān)閉WIN9X，直到完成相應(yīng)的操作，那么如何才能禁止用戶(hù)關(guān)閉WIN9X呢？其實(shí)很簡(jiǎn)單，當(dāng)用戶(hù)關(guān)閉WIN9X時(shí),系統(tǒng)會(huì)發(fā)送給各應(yīng)用程序一個(gè)消息wm_queryendsession,告訴各應(yīng)用程序要關(guān)機(jī)了，如果反饋回來(lái)的消息值為0,那么WIN9X就不能關(guān)機(jī)。因此，截獲wm_queryendsession，并反饋回0，大功就告成了，下面是一個(gè)例子。
----在下面這個(gè)例子中，我們?cè)诖绑w中加入一個(gè)復(fù)選框（CHECKBOX），如果用戶(hù)不選中它，則無(wú)法關(guān)閉WIN9X，如果選中它，才可以關(guān)閉。在實(shí)際應(yīng)用中，用戶(hù)可首先設(shè)定一個(gè)布爾變量，當(dāng)所需的作操都完成后，使其值變化，當(dāng)程序檢測(cè)到這個(gè)變量的值變化后才允許關(guān)閉WIN9X。為方便大家使用，給出窗體的完整代碼（很短）：
unitUnit1;
interface
uses
Windows,Messages,SysUtils,
Classes,Graphics,Controls,
Forms,Dialogs,StdCtrls;
type
TForm1=class(TForm)
CheckBox1:TCheckBox;
private
{Privatedeclarations}
//聲明攔截WM_QueryEndSession消息的過(guò)程
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.
----運(yùn)行上面的程序，首先不要選中復(fù)選框，在WIN9X的“開(kāi)始”菜單中選擇“關(guān)閉系統(tǒng)\關(guān)閉計(jì)算機(jī)或重新啟動(dòng)計(jì)算機(jī)”，你將發(fā)現(xiàn)屏幕閃爍了一下又恢復(fù)了正常；將復(fù)選框選中，再關(guān)閉計(jì)算機(jī)，這下就可如愿了。
