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

用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。

生存还是毁灭:Facebook惨败真是HTML5的错? OpenStack基金会主席:一年后成熟度超越CloudStack 在线学习新编程 技巧全攻略 “英特尔杯”HTML5程序开发邀请赛侧记 C#编译器组首席工程师Eric Lippert离职 加盟Coverity Testacular:Google开源的JavaScript测试执行过程管理工具 黑莓亚洲开发者大会报道:BB10将敲开亚洲应用市场大门 挑战Google!传Facebook与Yahoo要联手开发搜索引擎 揭秘Android 4.2 开发者的天堂与地狱 11大黄金法则:顶级移动UX设计心髓 库克时代:苹果已经不是苹果 设计师必备:极简风格的Fluid UI快速原型图工具 iPhone 5发布,后乔布斯时代苹果乏善可陈 牛人妙计:HTML5应用也能像原生一样跑得快 移动周报:OpenFeint难逃关闭命运 细数与苹果恩怨史 FlyingDaggers团队专访:不浮躁,用心做真正的原创游戏! IT巨头混战:谷歌、苹果、Facebook以及亚马逊的四国演义 乐视TV:智能电视平台——Android 开发者的新空间 TIOBE 2012年12月编程语言排行榜:Objective-C冲刺卫冕年度语言 11月份浏览器市场份额 IE10已占据0.51% 亚洲高科技公司正在分享惠普、戴尔和IBM的云“午餐” Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 Widestring与AnsiString之间怎么相互转换 关于FTP的问题 用什么函数可以得到本地硬盘分区个数? 程序中如何跳出进行鼠标操作? 传值,三个窗体之间的传值,在线,请回答 斑竹,请教你一个问题:ASP与报表... 体提议意见 数据库中正常,在JSP中显示好象为十六进制数,帮忙解决 如何获取硬盘序列号? 请教高手,这个效果用CSS该如何实现? win2k如何实现桌面共享!! 可不可以怎么做? 当前提供者不支持索引必需的界面 没有马甲的来这里报到! linu和windows都不能启动了,怎么办,急急急!!! 请问,在PB中怎么为自定义窗体类定义一个虚拟方法? 熟悉memfile的朋友请进 php调VB程序?着急! vb 访问另一台sql server 的问题? 谁有flashmx,dreamwerver mx,firework mx 的注册吗。有100分 很急的问题? 断点无效?? 想给自己买一个数码相机做新年礼物!但对选中的品牌不是很熟!请师哥师姐给点建议!!! 如何对视图连接的表进行数据插入?? 谁会替用户负责?用“小灵通”还是小心为妙 做过考勤管理的请进………… 简单问题,麻烦各位高手!!! 请问delphi5中有没有delphi6中的object treeview功能 哪有关于网络安全方面的资料? 三层MIS中的中间件怎么用COM或EJB来实现. 请问哪里的个人主页控件支持JSP? 再次请教一个有关DataGrid不能显示而令人头晕的问题(在线等待)! 做过考勤管理的请进………… 在ASP.NET中怎样实现语句加入引用? 请问下面这个问题应该怎么解决最好?关于处理网页中的数据的 使用VB6自带的Sample中自动化示例应用程序时的一个问题 那位高手知道怎样实现曲线分析图... 一个简单SESSION 问题,请解决。在线等,没分了不好意思. 为什么在asp中使用ADODb的Connection对象的方法时不能使用事务处理 ====寂寞啊!谁帮介绍一个女孩啊(15-18)岁的!!万分感谢!==== 高分请教大虾,关于搜索的问题?。。。。 100分请教一个简单的问题?? runtime在JAVA中解释应该是什么意思? SCO上的ORACLE7建库?SOS 大家来看看,超级Bug?用DBExpress连接MSSQL,执行存储不能返回值,谁能解决,200分 高分请教,谢谢了/。。。。 我在程序中使用了MSXML,可是在干净的win98下无法运行,请问需要安装什么? 救急: SQL server的数据恢复 关于分辨率的问题。 在vb.net中能做dll吗?请大家可参与 下面的函数怎样声明? 能直接用alter语句修改某个字段的类型和长度吗? 杭州市级医院全面推行市民卡智慧医疗服温州小区藏着臭皮市场 恶臭难挡遭住户杭州城管将推行无证摊贩集中形成便民服杭州下半年房价出现较大波动可能性不大杭州高温致老人小孩多中暑 120急救高温天防中暑需多补水 夏天碳酸饮料要下沙有幢楼停电两天两夜 高温暴小区质杭州昨最高温突破40℃ 未来十天高温杭州已连续五天最高温超过40℃ 本周金华本周天气依旧晴热高温 局部或有雷宁波为治堵下半年将优化10条公交线路杭州今明最高气温达39~40℃ 城北杭州连续高温15天排全国第二 未来三杭州小区地下车库温度28℃ 居民避暑市绿化办倡议市民共抗旱 早晚多为植物宁海奉化昨天实施人工降雨 今明两天视杭州四个部门今起联合抽查企业防暑降温杭州连续29天高温全国排第三 要持续杭州农作物因旱受灾 市场蔬菜有供应价杭州将要专门立法保护江鲜湖鲜(图)杭州消防上周接火警310起 起火多因新华国际时评:抓住中美年度对话的契机台大发文禁止学生装鬼吓人 引发学生热痴情女求復合 狠男拒绝囚禁霸凌行径嚣韩政府批准民间团体赴朝讨论农业援助事河南信阳一卫生局长办公楼坠亡 遗书称美国驻冲绳基地战机紧急撤离 为躲避超人民法庭审判机制改革有条件地区可先行韩国大叔酒醉走上铁轨致地铁延误 称为超车引发争执 男子持刀砍伤的哥吸毒男子狂殴妻女 刑警出击实施抓捕女子上班路上突遇行道树折断被砸伤 树湖北罗田县人民医院院长肖胜军接受调查“社区禁毒图书角”工程山西启动专家:中国乳制品市场逐步恢复进入良性中英离岸人民币市场讨论会在沪召开东海舰队某部组织纪念全民族抗战爆发7高考录取明天开始 结果可在网上查 请默克尔9年7次访华:中德两国经贸合作贵州黔东南州发布环境资源司法保护绿皮内蒙古部分地区突遭风雹袭击 上万人受安倍指示阁僚加大力度打击“脱法迷幻药
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘