在實際應用時,修改了系統的某些設置,必須重新啟動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.

應用實例:

建立含有如下控件的窗體:
控件 控件名 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;

end.

以上程序在WINDOWS 98、DEPHI 4.0環境中運行通過.