说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用Delphi实现禁止用户关闭Window9X

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi实现禁止用户关闭Window9X

在软件的安装或演示操作等过程中,如果关闭WIN9X会产生严重的后果,就必须禁止用户关闭WIN9X,直到完成相应的操作,那么如何才能禁止用户关闭WIN9X呢?其实很简单,当用户关闭WIN9X时

系统会发送给各应用程序一个消息wm_queryendsession

告诉各应用程序要关机了,如果反馈回来的消息值为0

那么WIN9X就不能关机。因此,截获wm_queryendsession,并反馈回0,大功就告成了,下面是一个例子。

----在下面这个例子中,我们在窗体中加入一个复选框(CHECKBOX),如果用户不选中它,则无法关闭WIN9X,如果选中它,才可以关闭。在实际应用中,用户可首先设定一个布尔变量,当所需的作操都完成后,使其值变化,当程序检测到这个变量的值变化后才允许关闭WIN9X。为方便大家使用,给出窗体的完整代码(很短):

unitUnit1;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls;

type

TForm1=class(TForm)

CheckBox1:TCheckBox;

private

{Privatedeclarations}

//声明拦截WM_QueryEndSession消息的过程

procedureWMQueryEndSession(varMsg:TMessage);

messageWM_QueryEndSession;

public

{Publicdeclarations}

end;

var

Form1:TForm1;

implementation

{$R*.DFM}

procedureTForm1.WMQueryEndSession

(varMsg:TMessage);

begin

ifCheckBox1.CheckedthenMsg.Result:=1

elseMsg.Result:=0;

end;

end.

----运行上面的程序,首先不要选中复选框,在WIN9X的“开始”菜单中选择“关闭系统\关闭计算机或重新启动计算机”,你将发现屏幕闪烁了一下又恢复了正常;将复选框选中,再关闭计算机,这下就可如愿了。

----程序调试环境:DELPHI4

中文WIN98。

IDG李丰:在中国,创业公司最好是一个One Man Company Google Drive新增“保存到Drive”按钮功能 可自行添加 腾讯CDC创始人唐沐加盟小米 总经理陈妍接任 老板我想辞职:因为小米100万元征集一张壁纸 移动周报:GitHub上最火的Android开源项目 免费才是王道:盘点开发者须知的25个免费数据可视化工具 Pivotal获通用电气1.05亿美元支持 或将改变大数据和物联网的游戏规则 大掌门与阿里云和解:云生态系统呼之欲出 刘有涛:恩信科技云计算大潮中扬帆起航 Cloudera释放Impala 1.0:与Hadoop完全整合,各方面完爆Hive 云通讯平台:让你的应用会说话 触宝用户过亿,CEO王佳梁常说的词是“创新” 全国电脑健康日启动 360搭建电脑维修开放平台 C语言实现归并排序 360石晓虹:针对移动Apps的DDoS攻击将成重大威胁 更社交化:谷歌将推出Google Play平台服务 C语言对磁盘文件进行快速排序 传Google已关闭短信搜索服务 PayPal首席安全官:靠密码验证身份即将寿终正寝 DRM你又赢了:其API纳入HTML5标准 豌豆荚王俊煜:洗白白其实是一个计划外的产物 抢Google等巨头生意,纽约大学小伙挖掘并出售自己数据 noBackend:前端优先的开发模式 C、CPP const 详解 三星5G技术获得突破性进展 未来传输速度可达10Gbps 5月14日:1984年美国社交网站Facebook创办人Mark Zuckerberg出生 Chartkick:一行代码即可绘制出漂亮的图表 用友UAP将打造开放平台 建应用商店销售企业级应用 共享软件营销:如何将你的产品推向海外 谷歌使用Debian Linux作为GCE的默认操作系统 大数据?别唬人了!我们真的需要盲目烧钱追求大数据吗? 关于Rundll32.exe程序的问题 播放AVI动画的问题 c#和asp.net有什么关系? 串口打不开怎么办? 请问各位大虾,怎样在java里打开一个IE窗口。 网络问题! 我的浏览器怎么了? 在局域网中,如何在代理服务上作手脚,使处同一局域网某些人可以上网,某些人不能上网。各位帮忙! 如何制作安装盘,我的做好了,为什么到别的机器上安装不能运行 急急急·高手帮忙,在Java中引用C++的动态链接库,中文字符串参数变成乱码,怎么办? 有前锁问题 找个扫雷源程序! 发送邮件时,对现在大部网站要求的smtp认证,如何处理?急用! 连接的ACESS数据库可以是EXCEL的链接表吗? 神呀救救我吧? 谁知道哪有Delphi写的代理服务器源代码? 关于MFC的动态生成对象的问题 有谁把平台转向XP了,不知在这种新环境下开发出的软件在别的机器上会不会有问题(包括运行库及打包) 帮帮我,好吗?(谢谢大家了) 千山、恶人、老鱼、念雪、浪人及各位大虾,小弟也遇到了Dll引出MDIChild的问题,但是在linux下,不能正常退出,请各位帮忙,多谢了。 我的浏览器怎么了?? 心情好到最高点!放分!!!!!!!!!! 大家一定要帮帮我~~~~~~~~~ 一个关于重载的问题! 不活了 不活了.... 在VC中讲Edit控件的属性设置为ReadOnly后,如何改变控件的背景色??? 深圳的户口政策以及用人单位对户口的态度是怎样的? 200分求购一个VB写的用mciSendCommand播放VCD或者AVI的例子!!!!!!!! 请问大家认为数学对程序员来说是一个怎样的地位................ 紧急,求救!!!!!!!!!!!!!!! 请问在GSM MODEM编程中,如何知道短信是否已发送到目的手机! 急:为什么都用uses包含了,还是报告说没定义变量? 删除表时遇到的问题 *************stringgrid的问题?????? 再问几个问题 如何查找csdn上网的朋友 用 ADO 对 Oracle blob 字段读写 (谁能解决送1000分) 请问oracle9i比oracle8i多了那些功能?这个产品是否成熟? VB读串口数据 请问,你们做项目一般用什么分析设计方法,生命周期法? 快速原型法? 面向对象分析设计法?? 请问如何用query删除一个记录???????????????????????? 请问那里可以下载到雷电(指点一下也给分)……………… 初级问题,关于硬盘文件格式转换,请多多帮忙,谢谢! 那里有比较好的软件公司 毕业设计选题 谁有读写注册表的原代码? 请问那位大哥有画切线的C语言算法 如何使页面上的按钮被点击后自动打印当前页面? 哪儿可以下载星际争霸? 注册表中如何建新的主键?30分 寻求在tc下设置640*480(256色)模式的代码 世界在我生命中究竟是什么颜色拜托各位大神我要的世界 地球是什么颜色的啊大神们帮帮忙地球是圆的吗?它到底是什么颜色的呢? 读了这个故事,你有什么感悟老舍的生活一直不富裕,他曾说世界上“最伟大的一个字——‘饭’——给我时间与饭我能够写出较好的.”在抗战时的重庆尤甚,那时老舍特别关心好友吴组缃先生 清晨,草上的露珠在太阳光的照射下发出五颜六色的光,且我们看到它发出的光的颜色随视线方向的改变而改变这是为什么? 生命究竟有多长? 地球是什么颜色的谢谢了,大神帮忙啊 清晨,草上的露珠在阳光的照射下发出彩色的光,而且它发出的光的颜色随着视线方向改变而改变 ,为什么? 生命究竟是什么?拜托各位大神 地球是什么颜色的?谢谢了,大神帮忙啊 清晨,草上的露珠在太阳光的照射下发出五颜六色的光,且我们看到它发出的光的颜色随视线方向的变化而变化请说明理由 20号钢正火为何种组织组成物? 20%珠光体还是20%铁素体? 什么原因造成钢的碳含量减少?材质证明书中的保证值是0.04%,经过焊接后,做化学分析试验,发现碳含量低于0.40%,母材和焊材的碳含量都在0.40%以上,为什么会出现这样的结果? 球墨铸铁如何控制珠光体含量我单位零件采用QT600-3,以前没有将金相组织作为检验的依据,只做物理性能检验.最近,我们想增加对金相组织的检验,检验中却发现,同一包铁水,浇注试块、本体、 生命到底是哪里来的拜托各位大神 我的多彩未来 作文 怎么写啊各位大神帮帮我啊 要求球墨铸铁分别获得珠光体,铁素体,贝氏体的组织,工艺上应该如何控制? 低碳钢的哪种组织为珠光体+铁素体 作文:其实,我很××拜托各位大神 要使球墨铸铁分别得到珠光体,铁素体,和贝氏体的基体组织热处理工艺上的依据是什么 要怎样去看待人生与生命?迷茫,对人生与生命的观点 起点小说大神们用什么软件写作啊?起点网写小说很麻烦,你看要每次跟新字数都要确定多少多少,还有毕竟写小说,自然要方便快捷的. QT500-7球墨铸铁最佳的珠光体与铁素体的比例是多少? 过春节的感受是感受,写出有多高兴,不是在春节里发生的事,100字左右,是70字左右. 爱国人物的故事的读后感要500字左右的,不然不给分.小学生能写的范围之内 清晨,草上的露水在太阳的照射下发出五颜六色的光,而且我们看到它发出的光的颜色随视线方向的改变而改变这是为什么? 过春节的感受 作文 600字的 写的好给10个奖赏 《中国近代爱国主义人物故事》读后感 新年感言作文400字 这个字的颜色是怎么弄出来的 照射到地球的太阳光几乎是()色的 万紫千红(颜色) ..( )、( )、(万紫千红(颜色) ..( )、( )、( ). 这个字不是打的,是我家族谱上的一个字,拍照下来的 不认识 太阳是什么色 计算室温下,含碳1.2%的钢中珠光体和二次渗碳体各占多少 求教大神“涐”这个字怎么打 太阳什么色的 求高手帮忙用杠杆定律算下含碳量为0.77%的钢室温组织珠光体中的铁素体和渗碳体的百分比?对于工程材料学中的杠杆定率应该用于两相之间,这里为什么还可以求一个组织中的成分? 20钢碳含量是多少 硅酸盐水泥强度等级确定时标准试件的尺寸 随着含碳量的增加,钢中铁素体和渗碳体的相对含量有何变化? 这个字读什么? 硅酸盐水泥强度的发展规律怎样 建筑工程材料 红光照在黑玻璃上,又会看到什么颜色?为什么? 这个字到底叫什么 怎么打出来的 太阳光由7色组成,看起来是白色,而为什么将7种颜料混合却成黑色了?怎么才能用颜料混合成白色?我要的是怎么才能配成白色?用什么颜料才能配成白色 光照在透明蓝玻璃上 蓝玻璃吸收了什么颜色的光 有让什么颜色的光透过去*(光指的是白光 就是混合光)蓝玻璃反射了什么光 2015新年感言500字与生活关联以学生的角度来写 太阳光由红橙黄绿青蓝紫7色组成,看起来是白色,而为什么将红橙黄绿青蓝紫7种颜料混合却成黑色了? 什么颜色的玻璃透什么光,比如说红色玻璃可以透过红光,那其余颜色的光是被玻璃吸收了还是被反射了? 求新年感想作文一篇500字左右? 为什么硅酸盐水泥和普通硅酸盐水泥早期强度低,后期强度高?抗腐蚀能力强?水化热低? 蓝光照在白纸上,再通过红色玻璃看这张白纸是什么颜色?说出理由 钢铁分类方法? 掺混合材料的硅酸盐水泥耐水性好么 西游记心得体会12则.挑几个故事写比如自己的看法感悟启发,每篇300字左右,还有2012的春节联欢晚会300字西游记心得体会是6则,不是12则. CF里的彩色字体跟彩色昵称都有哪几种颜色!CF里的彩色字体跟彩色昵称都有哪几种颜色!请具体点!有几种分别是哪些颜色! 读《爱国故事》有感 求一篇关于学雷锋心得,要300字左右的 地球是什么颜色的?大神们帮帮忙 读什么故事有感
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn