在應用程序中開關WINDOWS系統

在實際應用時,修改了系統的某些設置,必須重新啟動WINDOWS;而有些時候演示完一個軟件後,必須關閉WINDOWS;同時在演示期間,又禁止用戶強行關閉Windows.如何解決上述問題,筆者編制了一個程序全面地解決了上述問題.

　　
　　實現原理:
　　1.重新啟動WINDOWS,關閉WINDOWS,結束當前的用戶進程都是通過調用EXITWINDOWSEX函數實現的.該函數有兩個參數,前一個參數使用EWX_FORCE表示強行關閉WINDOWS而不提醒保存其他應用程序的運行結果,後一個參數EWX_LOGOFF表示注銷當前的用戶進程; EWX_SHUTDOWN表示關閉WINDOWS; EWX_REBOOT表示重新啟動Windows.

　　2.禁止關閉WINDOWS是通過關閉WINDOWS98時,系統向各應用程序發送的一個消息wm_queryendsession,通知各應用程序要關機了,如反饋回來的消息值為0,那麼就不能關閉Windows98.

　　圖1

　　
　　應用實例:

　　建立含有如下控件的窗體:
　　控件 控件名 CAPTION

　　窗體 FORM1 重新啟動Windows系統

　　復選框 CHECKBOX1 強行結束當前的用戶進程

　　復選框 CHECKBOX2 強行關機

　　復選框 CHECKBOX3 強行重新啟動機器

　　復選框 CHECKBOX4 禁止關機

　　復選框 CHECKBOX5 退出

　　
　　2.程序清單:

　　unit CLSW;

　　interface

　　uses

　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

　　StdCtrls;

　　type

　　TForm1 = class(TForm)

　　CheckBox1: TCheckBox;

　　CheckBox2: TCheckBox;

　　CheckBox3: TCheckBox;

　　CheckBox4: TCheckBox;

　　CheckBox5: TCheckBox;

　　procedure CheckBox1Click(Sender: TObject);

　　procedure CheckBox2Click(Sender: TObject);

　　procedure CheckBox3Click(Sender: TObject);

　　procedure CheckBox5Click(Sender: TObject);

　　
　　private

　　procedure wmqueryendsession(var msg:TMessage);

　　message wm_queryendsession;

　　{ Private declarations }

　　public

　　{ Public declarations }

　　end;

　　var

　　Form1: TForm1;

　　implementation

　　{$R *.DFM}

　　
　　procedure TForm1.CheckBox1Click(Sender: TObject);

　　var EWX_LOGOFF,EWX_FORCE:integer;

　　begin

　　EWX_LOGOFF:=0;

　　EWX_FORCE:=4;

　　EXITWindowsEX(EWX_FORCE OR EWX_LOGOFF,0);

　　end;

　　
　　procedure TForm1.CheckBox2Click(Sender: TObject);

　　var EWX_SHUTDOWN,EWX_FORCE:integer;

　　begin

　　EWX_SHUTDOWN:=1;

　　EWX_FORCE:=4;

　　EXITWindowsEX(EWX_FORCE OR EWX_SHUTDOWN,0);

　　end;

　　
　　procedure TForm1.CheckBox3Click(Sender: TObject);

　　var EWX_REBOOT,EWX_FORCE:integer;

　　begin

　　EWX_REBOOT:=2;

　　EWX_FORCE:=4;

　　EXITWindowsEX(EWX_FORCE OR EWX_REBOOT,0);

　　end;

　　
　　procedure TForm1.wmqueryendsession(var msg: TMessage);

　　begin

　　if checkbox4.checked then

　　msg.result:=1

　　else

　　msg.result:=0;

　　end;

　　
　　procedure TForm1.CheckBox5Click(Sender: TObject);

　　begin

　　close;

　　end;