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实现md5算法

获取 ip138 ip 地址

Delphi idhttpserver的使用方法

Delphi将文件的内容读取为字符串

secsperday:一天共有多少秒

Delphi四舍五入问题解决

Delphi线程的创建、挂起、激活与终止

Delphi中实现dbgrid列宽度自动调整

Delphi winapi: getparent - 获取指定窗口的父窗口句柄

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



打赏

取消

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

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

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

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

评论

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