Delphi 消息拦截篇 -- 之拦截系统关机、重启、注销

最新推荐文章于 2019-07-15 14:39:43 发布
原创 最新推荐文章于 2019-07-15 14:39:43 发布 · 9k 阅读 · 4 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi #forms #windows #class #测试

本文介绍了如何在Delphi中拦截系统关机、重启、注销操作，通过三种方法：自定义处理单条消息、利用Application.OnMessage以及自定义窗口函数。重点强调了使用WndProc来拦截WM_QUERYENDSESSION消息，以实现阻止或处理关机事件。同时，文章提到Application.OnMessage无法拦截该消息，并分享了解决过程中遇到的问题。

最近做的项目中需要拦截系统关机，因为我在FormCloseQuery中总是把CanClose设为False，不拦截关机的话直接导致系统中的关机、重启、注销都失效了！导致用户不能关机！(提示用户说要关机的话直接按电源^^)这样肯定是不行的！

 

 

要完成这个功能只需要拦截到WM_QUERYENDSESSION消息就万事Ok!

关键在于怎么在Delphi下拦截WM_QUERYENDSESSION消息呢？Delphi也是很强悍的，当然不用直接去SetWindowLong了。

 

 

好了不废话了，博客的第一篇文章就开始啦！

 

 

首先介绍一下Delphi中拦截消息的几种做法

 

 

 

 

第一种：自定义处理单条消息

 

最低0.47元/天 解锁文章
delphi 截获关机消息
11-03
delphi截获关机消息的一种方式，需要通过消息返回值来判断是否同意关机.
delphi关机
12-13
delphi关机，自动的操作电脑的关机， 重启等
Delphi 消息之拦截篇---拦截系统关机、重启、注销
weixin_30361641的博客
09-28 220
　　最近做的项目中需要拦截系统关机，因为我在FormCloseQuery中总是把CanClose设为False，不拦截关机的话直接导致系统中的关机、重启、注销都失效了！导致用户不能关机！(提示用户说要关机的话直接按电源^^)这样肯定是不行的！ 要完成这个功能只需要拦截到WM_QUERYENDSESSION消息就万事Ok! 　　Windows在关机的时候会想(向)所有顶层窗口广...
Delphi编程禁止用户关闭操作系统(转)
08-12 142
Delphi编程禁止用户关闭操作系统(转)[@more@]本实例介绍在程序运行的过程中禁止用户关闭操作系统。 　　用户是否可以关闭操作系统是通过对WM_QueryEndSession的处理来实现的，为此首先需要在程序中添加WM_...
(Delphi源码)恶作剧程序--禁止关机
09-24
总的来说，这个"恶作剧程序"展示了Delphi如何被用来编写具有反常行为的应用程序，特别是关于如何利用Windows消息机制来阻止关机和监控系统进程。这也提醒我们关注计算机安全，避免运行不明来源的程序，以免造成不必...
基于Delphi开发的远程关机控制程序
ExitWindowsEx 是 Windows 提供的一个关键 API，允许程序以编程方式关闭、重启或注销当前系统，支持多种标志参数，例如 EWX_SHUTDOWN 表示关机，EWX_REBOOT 表示重启，EWX_FORCE 强制终止所有进程等。为了确保权限...
工控机Delphi源码：屏蔽Winlogon组合键并控制关机启动
该资源是使用Delphi 10.3.3开发的一个项目，旨在实现几个关键功能，主要包括屏蔽Windows系统中的CRTL+ALT+DELETE组合键，实现延时关机与立即关机操作，以及让程序能够在电脑开机启动时自动运行。本资源涉及的编程...
网吧防关机工具包：防止系统关机继续上网
“防止关机软件网吧可以用”这一标题所描述的是一款专门针对网吧环境设计的系统控制类工具，其主要功能是阻止计算机在用户注销或下机时自动执行关机操作。在许多公共上网场所如网吧中，管理系统通常会设置为：当用户...
delphi 暴力关机 强制关机 快速关机 1秒关机
03-15
delphi 暴力关机 强制关机 快速关机 1秒关机 用汇编调用dll快速关机,只需一秒!
拦截注销重启关机软件 v1.1
05-04
软件介绍 本程序命令主要拦截电脑进入待机状态，还有电脑的重启、注销、关机的拦截。已阻止过的详细信息，会在【程序主页】的界面里看得到。 适用于下载文件时，人不在电脑机前操作，免长时间未操作，自动进入待机中，中断文件的下载，本程序会自动阻止进入待机状态。 注意：待机不能与关机、重启、注销两个功能同时开启，否则会导致程序自动退出，可临时打开两个程序，这样还能使用一点。 目前一些强制执行关闭计算机的还未能有效拦截，此处还需待更新，敬请期待！ 拦截的时候为什么不能操作，当程序执行拦截关闭计算机时，需要几秒【3到5秒】可恢复正常使用！不会对系统有任何影响。 注意：本软件只在XP系统下测试,能正常拦截成功,其他系统本人未测试过,具体效果还请自己进行测试。
Delphi 强制关机.rar
07-10
Delphi 强制关机的一个小程序，附代码，测试要小心啊，会自动关闭你的电脑，最好编译程序前先保存你的工作，否则悲催了。
Delphi中DLL的消息处理
04-05
Delphi中DLL的消息处理
delphi自动关机程序，还不错
04-07
自动关机程 delphi自动关机程序，还不错
delphi 关机代码
cuihao0532的博客
12-05 1005
引用单元 shellapiuses  shellapi;//codes  ShellExecute(0,'open','shutdown.exe',' -f -s -t 0',nil,SW_HIDE);-t 后面的数字表示执行该代码后多长时间关机，0代表立即关机。
delphi默认消息拦截
weixin_30338461的博客
07-15 364
Code unituWei; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls; type TForm2=class(TForm) Button1:TButton; pro...
Delphi关机程序NT版
江雪独钓
09-14 1880
以下是一段NT的关机程序（抄的）procedure ExitWindowsNT(uFlags : integer);var  hToken : THANDLE;  tkp, tkDumb : TTokenPrivileges;  DumbInt : DWORD;begin  FillChar(tkp, sizeof(tkp), 0);  // Get a token for this proc
通过消息拦截达到在Delphi控件中屏蔽原有事件处理的一种方法
siow的程序人生
02-10 5170
 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) btn1: TButton;
评论 2
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值