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 线程中修改主窗体的控件内容

Delphi 判断字符是否是汉字,bytetype字符串中判断是否英文

Delphi 循环 low high 用法

Delphi 最简单的ttcpserver与ttcpclient通信实例

winapi 字符及字符串函数(14): chartooem、oemtochar

Delphi版inf方式加载驱动

Delphi adoconnection1 连接excel表格读取数据

Delphi richedit 的scrollbar自动向下滚动

Delphi 数字转换成中文

Delphi的控制台程式添加公司信息、版权信息

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



打赏

取消

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

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

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

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

评论

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