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

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键运行程序。只要本程序在正常运行，用户就无法关闭操作系统。

　　在工程实际中，经常需要使应用程序不间断地运行，为了防止意外因素关闭操作系统，可以使用本实例介绍的方法

转载于:https://www.cnblogs.com/wenwencao/archive/2010/05/18/1738318.html

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

[IE技巧] 如何禁止用户关闭IE浏览器
在有些基于browser应用程序里面, 我们需要保证browser 一直开着才能使程序按正常流程运行. 以下是个小技巧可以禁止用户关闭IE 浏览器. 在注册表键 HKLM\Software\Poli ...
Delphi编程中资源文件的应用
Delphi编程中资源文件的应用 2008-02-03 14:08Dephi中资源文件的应用 /转自 http://chamlly.spaces.live.com/blog/cns!548f73d87 ...
Delphi编程中流的使用
什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具.在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向. ...
不为人知的网络编程(十三)：深入操作系统，彻底搞懂127.0.0.1本机网络通信
本文作者张彦飞,原题"127.0.0.1 之本机网络通信过程知多少 ",首次发布于"开发内功修炼",转载请联系作者.本次有改动. 1.引言继<你真的了解 ...
oracle 郑阿奇 pdf,Delphi编程教程 (郑阿奇) PDF扫描版
<delphi编程教程>主要包括delphi 2010集成开发环境.面向对象的pascal语言.窗体和常用组件.菜单类组件和工具栏.多窗体和mdi窗体.文件操作.数据库基础和应用(以sql ...
在Linux中如何禁止用户登录
默认情况下,Linux中创建用户帐户时,用户具有shell访问权限.在某些情况下不需要用户帐户登录shell.本文介绍如何设置已存在的用户禁止shell登录.创建用户时禁止shell登录. 创建用户时 ...
使用session监听+spring MVC拦截器禁止用户重复登录
在许多web项目中,需要禁止用户重复登录.一般来说有两种做法: 一是在用户表中维护一个字段isOnLine(是否在线),用户登录时,设定值为true,用户退出时设定为false,在重复登录时,检索到该 ...
在 Linux 中如何禁止用户登录
默认情况下,Linux中创建用户帐户时,用户具有shell访问权限.在某些情况下不需要用户帐户登录shell.本文介绍如何设置已存在的用户禁止shell登录.创建用户时禁止shell登录. 默认情况下 ...
深入delphi编程(转)
刚刚接触的delphi的朋友,可能最感兴趣的就是它丰富.强大的vcl(可视化构件库).仅仅向窗体上扔几个构件,甚至不用动手写代码,就能很容易地做出一个有实用价值的程序,真是令人激动.但是,vcl只是d ...

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

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

最新文章

热门文章