在實(shí)際應(yīng)用時(shí),修改了系統(tǒng)的某些設(shè)置,必須重新啟動(dòng)WINDOWS;而有些時(shí)候演示完一個(gè)軟件后,必須關(guān)閉WINDOWS;同時(shí)在演示期間,又禁止用戶強(qiáng)行關(guān)閉WINDOWS.如何解決上述問題,筆者編制了一個(gè)程序全面地解決了上述問題.


實(shí)現(xiàn)原理:
　　1.重新啟動(dòng)WINDOWS,關(guān)閉WINDOWS,結(jié)束當(dāng)前的用戶進(jìn)程都是通過調(diào)用EXITWINDOWSEX函數(shù)實(shí)現(xiàn)的.該函數(shù)有兩個(gè)參數(shù),前一個(gè)參數(shù)使用EWX_FORCE表示強(qiáng)行關(guān)閉WINDOWS而不提醒保存其他應(yīng)用程序的運(yùn)行結(jié)果,后一個(gè)參數(shù)EWX_LOGOFF表示注銷當(dāng)前的用戶進(jìn)程; EWX_SHUTDOWN表示關(guān)閉WINDOWS; EWX_REBOOT表示重新啟動(dòng)WINDOWS.

　　2.禁止關(guān)閉WINDOWS是通過關(guān)閉WINDOWS98時(shí),系統(tǒng)向各應(yīng)用程序發(fā)送的一個(gè)消息wm_queryendsession,通知各應(yīng)用程序要關(guān)機(jī)了,如反饋回來的消息值為0,那么就不能關(guān)閉WINDOWS98.

應(yīng)用實(shí)例:

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

窗體 FORM1 重新啟動(dòng)WINDOWS系統(tǒng)

復(fù)選框 CHECKBOX1 強(qiáng)行結(jié)束當(dāng)前的用戶進(jìn)程

復(fù)選框 CHECKBOX2 強(qiáng)行關(guān)機(jī)

復(fù)選框 CHECKBOX3 強(qiáng)行重新啟動(dòng)機(jī)器

復(fù)選框 CHECKBOX4 禁止關(guān)機(jī)

復(fù)選框 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環(huán)境中運(yùn)行通過.