禁止用户关闭操作系统(Delphi黑客编程) - 华夏黑客同盟

| 网站首页 | 资讯 | Hack | 漏洞 | 网管 | 编程 | 培训 | 品黑页 | 软件 | 论坛 | 动画 | 视频 | 经典 | 教学站 | 黑客点睛 |

服务导航

我要发布

主力频道

精华收集

光盘刻录

您现在的位置：华夏黑客同盟 >> 编程 >> Delphi >> 正文

用户登录

新用户注册

禁止用户关闭操作系统(Delphi黑客编程)

★★★

【字体：小大】

禁止用户关闭操作系统(Delphi黑客编程)

作者：不详文章来源：华夏收集点击数：更新时间：2007-1-19

本实例介绍在程序运行的过程中禁止用户关闭操作系统。

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

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

责任编辑：杨勇　　联系方式　Email：杨勇

电话：51228163

上一篇编程： Delphi编程-全面控制Windows任务栏

下一篇编程： delphi中第三方控件的安装方法

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

（只显示最新5条。评论内容只代表网友观点，与本站立场无关！）

姓名：	* 游客填写　·注册用户
主页：
评分：	1分 2分 3分 4分 5分
评论内容：
验证码： *

请遵守《互联网电子公告服务管理规定》及中华人民共和国其他各项有关法律法规。严禁发表危害国家安全、损害国家利益、破坏民族团结、破坏国家宗教政策、破坏社会稳定、侮辱、诽谤、教唆、淫秽等内容的评论。用户需对自己在使用本站服务过程中的行为承担法律责任（直接或间接导致的）。本站管理员有权保留或删除评论内容。评论内容只代表网友个人观点，与本网站立场无关。

最新hack更新

最新推荐资讯

最新会员软件

最新推荐视频

最新推荐动画

mailto:webmaster@77169.net
咨询QQ号:836982 / 59280880
联系站长 QQ38588913