在应用程序中开关WINDOWS系统

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环境中运行通过.

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!