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

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

VB6.0动态加载ActiveX控件漫谈 VB编程步步高-表单篇 VB编程常见问题 VB编程中如何锁定鼠标 VB创建位图菜单 VB实现按钮浮动效果 VB应用程序中的工具提示和状态显示 VB中处理长列表框项的两种方法 VB中多级下拉列表的实现 VB中防止将重复项目添加到列表框控件中 VB中实现菜单分割 VB中实现带预览的对话框 VB中实现同一窗口的多个实例及控件的动态增减 VB中阴影字体的实现 VB自定义数据结构的传输转换 Visual Basic 窗体背景花纹的实现 Visual Basic 中的界面设计原则和编程技巧 Visual Basic 中文本框处理技巧集萃 Visual Basic 中字符淡出淡入的实现 Visual Basic窗体背景花纹的实现 Visual Basic下工具条的制作 Visual Basic中的界面设计原则和编程技巧 Visual Basic中在同一界面输入大量数据的几种方法 VisualBasic中的界面设计原则和编程技巧 VisualBasic中用户界面的设计原则 把 VB 标准的工具栏变成平面式 把窗体卸载干净-VB资料 保持初始的窗体大小-VB资料 编程实现将所有窗口最小化-VB资料 不规则形状窗口详细说明 -VB资料 不用 API ,直接调用关联的程序 -VB资料 请教思归!!asp.net中弹出对话框的问题 怎样设置权限。 很简单的一个关于在文本框中换行的问题 急求VB+sqlserver开发学生档案管理方面的论文。高分(500) 还是多表问题 只要用连续打印发票时,第一张正确,第二张就不正常,我调了不是走多了就是走少了第三张一样的。 请问,ConnectionString 属性尚未初始化? 爱上一朵有主之花,郁闷ing,请各位出出注意。 为何我没法将贴子发出去?! 爱上一朵有主之花,郁闷ing,请各位出出注意。 请问全局对象为什么先赋值为NULL? 急急急急!!急死我了!大哥们帮帮忙,打印不正确走纸问题! 硬汉对照:一位计算机大师,LISP语言的创造者之人生感悟。看者玩呗。[zt] 爱上一朵有主之花,郁闷ing,请各位出出注意。 请看这段JDBC代码 ./ 是什么意思? 如何把WEB Method指定为用GET方法传递常数? 像MSN那种有邮件时就提示的那个小窗口要怎么做? 用什么API函数可以实现big5转换为gb 关于文件上传问题,大家都使用htmlcontrols.htminputfile控件吗? 各位大虾,关于扫描仪的错误2800:0000是指什么错误?急!!! 请问如何在载入页面前,跳出一个询问用户名和密码的窗口,然后验证用户身份? MSsqlserver 意外终止服务 www服务器过一段时间就停止服务? resin 中jsp文件无法显示图片,怎么回事? 请教思归!!asp.net中弹出对话框的问题 debug命令f怎么用呀? 笔记本电池,能外挂吗?~~~~ 工具欄的顯示應算較專業的問題 寻求共同创业的伙伴! COM+组件远程调用问题 如何才能把计算稿保存下来? 急。chr 与ord的运用! 为什么当我在dreamweaver里把表格的单元格宽度设定为像素了,可当我的字符串超过它的宽度,它不换行?而是拉长我的单元格 使用delphi第三方控件出现的问题 用什么函数把int转成nvarchar 关于上网的问题 关于图片的循环移动问题 寻求共同创业的伙伴! 关于Keil C51的编译问题 谁有《 Inside The C++ Object Model》英文版电子版 请教《深入浅出MFC》中有关“动态创建”的一个问题。 图像缩放和居中显示的问题 请教如何用DDraw实现屏幕随鼠标移动而滚动,就象星际中的地图比屏幕大,但可以滚动显示。 一点问题,劳驾各位高手啦。。谢谢!!! 一个双向链表得问提求救啊 截获、修改本地程序通过socket发出的包的问题 请教DDraw资源网? 可不可以把这两个合并成一句查询语句呀 问一下IDirect3DDevice8::SetTransform第一个参数的问题 如何把一个窗体放进动态链接库中? 形容气势雄伟,不同凡响的词语(最好写成语) 质量为2千克的物体从静止开始自由下落,不计空气阻力,在3秒末重力对物体做功的瞬时功率是:A150WB300WC60WD600W 春天的一个夜晚,一为久别家园的人,望者皎洁的月光不禁想起了家乡于是吟起诗来( )快 鲸的繁殖过程是怎样的? 什么是瞬时功率 工地上的沙子比水泥多65吨,用了一周后余下的数量相同.水泥还剩下4/5,用去沙子80吨,剩下多少吨水泥?答对此题者奖励500积分! 普通的降落伞正常在多高打开,最低的打开高度是多少?是不是和打开伞时的下落速度有关?还有,在17楼顶直接打开降落伞跳下去会死吗 关于物理功率的瞬时功率?从高处以40m/s^2的初速度平抛一重为10N的物体,物体在空中运动3S落地,不计空气阻力,则物体落地时的瞬时功率为 g=10m/s^2 强氧化剂像浓硫酸可以把碳粉氧化为二氧化碳,那么一定生成像co2这样的氧化物吗? 井水含有碱与小苏打的碱一样吗 虽然没有规定行号或列号写在前面,但已知点A的位置(a,b)是唯一确定的,那么a和b的大小关系是——科学:在寒冷环境下,动物的代谢速度加大的原因是—— ,其调节方式为—— .第二个问题是 乙稀能否被浓硫酸氧化成二氧化碳 在CorelDRAW怎么通过节点改变图像形状 将乙烯与O2以1:5的物质的量之比混合,常温常压下取这种混合气体a L,用电火花引燃后,恢复到原来的状态时,混合气体的体积是()?A aLB a/3 LC 2a/3 LD a/2 L应该怎么做?请写出详细过程及思路,谢谢 人怎样活着才有意义呀?2012就要到啦,我们人类还能坚持多久?什么时候上火星为什么国家一直不通知呢?请尽快回答我 含碱高的井水做豆腐有白浆是什么原因 将乙烯与氧气以1∶5的物质的量混合,120℃时取这种混合气体a L ,电火花引然后,恢复到原温度,混合气体的体积是:( )A.a/2 L B.a/3 L C.2a/3 L D.a L 关于普通话的作文 井水烧80度会结碱 我想热水锅炉用井水.有怕对锅炉有危险 有什么新鲜的方法探究物质溶解在水中是吸热还是放热 我与普通话的作文 鲸是怎样繁殖的 物质在水中电离的时候是放热还是吸热? 普通话的作文!马上要! 鲸的繁殖期在几月? 阀门中有个单位VA是什么意思啊 谁有“我与普通话的作文”? 历史上最杰出的十位物理学家是谁 一滴水多重,有1g吗一滴水有没有一克 电器上va代表什么单位?那么1200va的最高可以带动多少瓦? 历史上最牛的物理学家是谁? “一滴水,承载着无比的重量;----”阅读理解,哪有?帮帮忙 现在环保的购物袋成本多少?请问大家现在哪种购物袋最环保的? 洗衣机因长期使用会粘上很多污物和细菌如何消毒 什么是交易行号 如农行交易行号1168是哪个地方的农业银行?如农行交易行号1168是哪个地方的农业银行?怎么查这些交易行号的地方银行呢? 哪儿有做塑料购物袋的厂家呀不要全新料,就是市场上买菜用的那种 凸(艹皿艹)用搜狗怎么打 如何改变Excel列标行号大小不小心将Excel列标和行号变得很大,请问要怎么才能调回来?列表就是A.B.C.D.行号就是1.2.3.4.改变显示比例也无法灰复正常.只有列标和行号很大,其它一切正常,我的比便 春天的一个夜晚,一位久别家乡的人,望着皎洁的月光,不禁想起家乡,于是吟起来诗不是静夜诗春风又绿将难耐 配制溶液时,用生锈的砝码称重,会导致P%变大还是变小? 对excel不熟悉,遇到一个问题,行号不变列号有规律地变化,两个用什么符号粘合来产生一个新的地址.行号不变列号有规律地变化,两个用什么符号粘合来产生一个新的地址,用了一起符号,老是提 春天的一个夜晚,一位久别家乡的人,望着皎洁的月光不仅想起了月光,于是吟起诗来〔…………〕— 彡用搜狗怎么打? 电子表格中的行号和列号是什么? 听汇报用英语怎说 在配制一定浓度的溶液中,称量时 如果天平砝码沾有其他物质或生锈了.它的浓度会有什么影响? 又是来自某灯具说明书的句子.A minimun distance from the surface being illuminated must be maintained(fire risk).我的翻译是:哪怕灯具表面有极小距离的漏光都需要被修理.(火灾危险)不过自我感觉自己的 春天的一个夜晚,一个就别家乡的人,望着皎洁的月光不禁想起了家乡,于是便吟起诗来( ) 艹灬●用搜狗怎么打 关于灯具---这句是什么意思呢?Lamps included,NOT installed but packed in poly bag.请翻译以上句子,请注意NOT installed的翻译. 春天的一个夜晚,一位久别家乡的人,望着皎洁的月光不禁想起了家乡,于是吟起诗来 初三化学配置溶液中砝码生锈,溶解时液体溅出,没充分溶解,称量时砝码一端未放称量纸 .这些对溶质质量分数变大还是变小.我都乱死了 “健康装修健康灯(灯具)”说说这句广告语的创意.不要重复的,好的话有悬赏, 春天的一个夜晚,一位久别家乡的人,望着皎洁的人月光不禁想起了家乡,于是吟起诗 配置一定物质量浓度的碳酸钠溶液若称碳酸钠是所用砝码已生锈,这对所配溶液的浓度有何影响 英语翻译Dear Miss Huang Qiu,We would like to inform you that the following items belows are faulty OR damaged OR u sent wrong item:-1.MD7123A-1,the opal glass is too small,it should be the same size as MD7385 glass,QTY:18 PCS2.MX8292 = 12 pcs,829 美的空调51变频出现PR是什么意思? 戴眼镜能看显微镜吗? 句子说明了什么?“蓝天、白云、绿草”是这个国家最吸引人的地方,满眼的绿色,触手可及的朵朵白云,让人仿佛置身在童话的国度. 当代著名的物理学家之一斯帝芬.霍金,著有一本影响了全世界成千上万人的书.这本书是—— 加拿大12岁黑客攻击网站只为换取电脑美国监听风波陷两难 白宫急灭火共和党英国女子不愿找工作 靠生育9名子女领美国国务卿克里暗示未来几周内将出访埃卜拉希米:阿萨德可为建设新叙利亚作出新闻分析:阿根廷议会选举释放的政治信《卫报》持续揭美监控丑闻 卡梅伦称难澳洲一名男子失踪4天期间靠吃昆虫喝池美国国务卿克里暗示未来几周内将出访埃美国起诉英国黑客盗取机密文件 英当局英国女子不愿找工作 靠生育9名子女领卜拉希米:阿萨德可为建设新叙利亚作出也门首都萨那发生枪战 交火地点临近美美参院情报委员会主席吁对美情报工作大日新人古老列车举办婚礼 盘点全球独一联合国环境署肯定中国为可持续发展所作青海民间手工艺展在曼谷拉开\"今日中美参议院情报委员会主席:白宫已承诺停美国监听门事件愈演愈烈 白宫承诺将重美国军火巨头创新型侦察工具 可安放于华人男子失业 纽约杀表嫂一家5口提审伊犁地区两路段实行季节性封路乌鲁木齐克南高架东延收尾工作即将结束微小的力量,震惊商界 宁波思埠创始一名外籍男子涉嫌犯罪 在滁州天长市被滁州明光捣毁一地下卖淫窝点美国对X 37B讳莫如深的背后拳手失利怒火撒向裁判 铁拳连击当场揍陈定年龄再遭质疑 另一网友曝其曾付2美女孩玩“鬼屋”身亡:心脏瞬间扩大四呼和浩特市召开学校食堂食品安全工作经我国恢复来访国宾车队摩托车护卫(组图吐鲁番将实现铁路公路航空“零换乘”李艳:郑州特色的地方性法规获得高度评闫铁成:人民代表要把群众关心的事落到未提醒会员卡可积分 嘉陵传奇万象店被乌鲁木齐4趟公交车10月26日起临时新疆高铁乌鲁木齐至哈密段预计11月初乌鲁木齐地铁一号线“中营工站”10月日媒:两阁僚辞职重创安倍内阁 恐面临蔡琳高梓淇23日举行传统韩式婚礼 只美国对X 37B讳莫如深的背后
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘