在应用程序中开关WINDOWS系统

本文介绍了一个解决Windows系统相关操作问题的程序。通过调用EXITWINDOWSEX函数实现重启、关闭系统和结束用户进程,利用处理wm_queryendsession消息禁止关闭系统。还给出了程序清单,该程序在Windows 98和Delphi 4.0环境中运行通过。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

在实际应用时,修改了系统的某些设置,必须重新启动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;

end.

以上程序在WINDOWS 98DEPHI 4.0环境中运行通过.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值