實現禁止用戶關閉Window9X

　　 　　---在軟件的安裝或演示操作等過程中，如果關閉WIN9X會產生嚴重的後果，就必須禁止用戶關閉WIN9X，直到完成相應的操作，那麼如何才能禁止用戶關閉WIN9X呢？其實很簡單，當用戶關閉WIN9X時,系統會發送給各應用程序一個消息wm_queryendsession,告訴各應用程序要關機了，如果反饋回來的消息值為0,那麼WIN9X就不能關機。因此，截獲wm_queryendsession，並反饋回0，大功就告成了，下面是一個例子。

　　----在下面這個例子中，我們在窗體中加入一個復選框（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的“開始”菜單中選擇“關閉系統\關閉計算機或重新啟動計算機”，你將發現屏幕閃爍了一下又恢復了正常；將復選框選中，再關閉計算機，這下就可如願了。