Delphi编程禁止用户关闭操作系统


本文整理自网络,侵删。

 

用户是否可以关闭操作系统是通过对WM_QueryEndSession的处理来实现的,为此首先需要在程序中添加

WM_QueryEndSession消息处理的声明:

 procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;

  它的响应代码如下:

procedure TForm1.QueryEndSession(var Msg:TMessage);

  begin

   Msg.Result:=0;

  end;

  当用户关闭操作系统时,操作系统会发布一个WM_QueryEndSession消息,这时就会激活本实例程序中

的QueryEndSession过程,程序通过设置消息的返回值为0,就会禁止用户关闭操作系统,反之如果设置消

息的返回值为1,就会允许用户关闭操作系统。

   程序代码如下:

 unit Unit1;

  interface

  uses

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

 Dialogs;

 type

   TForm1 = class(TForm)

  private

   { Private declarations }

   procedure QueryEndSession(var Msg:TMessage);Message WM_QueryEndSession;

   public

    { Public declarations }

   end;

   var

   Form1: TForm1;

   implementation

   {$R *.dfm}

   procedure TForm1.QueryEndSession(var Msg:TMessage);

  begin

   Msg.Result:=0;

  end;

  end.

  保存文件,然后按F9键运行程序。只要本程序在正常运行,用户就无法关闭操作系统。

相关阅读 >>

Delphi tlistview控件里添加背景色

Delphi 的tstringbuilder防止服务器内存碎片化

Delphi获取进程pid

Delphi 使用钩子函数建立一个全局的鼠标钩子

Delphi 类和对象

Delphi winsoft comport for android usb

Delphi实现分割文本文件的小程序

Delphi xe android判断程序是否在运行

Delphi 实现文件分割合并

Delphi感染文件的例子

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...