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

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

代码审查:程序员内炼之道 Twitter Q1推广告API 收入剑指10亿 Dell:在OpenStack成熟后才会推出服务 一个开源工作者对开源与赚钱的一些想法 宏碁:Windows8仍不成功 Chrome表现令人意外 雅虎发布Q4财报 净利润同比下滑8% 游戏机禁售令起风波,索尼任天堂股价大涨 国外开发者吐槽Facebook Android设计一例 Rovio转向发行业务 将发布新作Tiny Thief 上山下海 “硬汉”服务器无所不能 访金山云CTO杨刚:开源改进PK自主研发,技术驱动前行 苹果涉及色情问题,且进一步恶化 开源产品系列:面向组件的Web框架tapestry 360指责百度窃取用户信息 公布美杜莎插件技术分析 苹果正式发布iOS 6.1 最快本周日即可越狱 苹果高管:运行iOS 6的设备达3亿 Chrome OS 黑客大赛总奖金为314.159万美元 微软雷德蒙研究院副总裁:从计算研究到惊人发明 还驾驭不了4核? 别人已模拟出百万核心上的并行 RIM将网络直播BlackBerry 10发布会 解读TDD的五大误区 Amazon 2012财年Q4财报:电子书业务增长70% 从暴风影音CTO到创业者:画中画相机话中话 为什么Android应用开发总要比iOS晚? 传奇VC马克.安德雷森:未来的企业什么样? 呼吁国会通过“创业签证”:奥巴马助力美国招揽海外人才 Surface Pro最低1019美元,价值究竟如何? 搜狗号码通产品经理谈微创新 数据和运营更关键 在线推荐系统是如何进行工作的? 欧朋浏览器上架App Store,iOS生态真要变天? 苹果iOS 6.1地图搜索API将替代谷歌Places 语音识别的识别率有什么标准吗? 老是出现错误1562怎么办?help me! 求助 请问如果我的数据库中的类别有1,2,3,可是有许多重复的,我该怎么才能选出唯一的,select * from products where .... 我有一段代码,但运行时好象总不对!请各位兄弟帮帮忙 请教:为何总有Document command is not available出现?急! 下面的话使咋回事啊? 一个关于iis发布站点的问题?? 50分,只换您来看一看; 这里有5。1愿意到凤凰去旅游的吗?偶可以在吉首市接待你们一吨饭 请问想调用系统时间可以用什么函数啊? *(int*)pstrBuffer = icharsPerLine 到底代表什么意思? 请问关于QT的站点有哪些?还有就是我如何给新装的卡装驱动呢? 超简单问题:如何换行? 有誰用過ppReport6.0?請問那里可以下載 怎样恢复WIN2000SERVER的目录服务? 又在深圳的Delphi程序员吗?-->请进 CString的对象该怎么释放啊? 有没有记录DBGrid的当前位置的,我说的不是用bookmark,因为我的DataSet是动态建立的,在刷新时好象Bookmark用不了。 情大家关注这个问题呀!!! 为什么我的程序对鼠标反应慢? 关于 mssql_close()函数的问题。 考过SCJP的朋友,请问考试卷可以转让吗?那上面有没有购买人的信息? 用什么软件可以把 .rm格式的多个文件进行合并? 请问如何得到早上0点到现在所过的秒数?我记得好象有个函数行的,可忘了 急急急。。。请问高手。window窗口的问题。。。 PB中继承关系能不能改? 请问有关用DELPHI开发WEB应用程序的经验、书和网站 String用法释疑 在sql server2000中如何制作大批量的数据并把它倒入数据库? 寻<<C语言常用算法>>第二版配套软盘 打印机的问题! 请问:一台w2k server的服务器安装了exchang sever w2k 如何实现用户自行更改PW。(次服务器在internet上)... 我的程序debug完以后,说strcore.cpp中有内存泄漏?咋回事? 用JAVA操作数据库居然出现这种现象 怎样将第三方控件打包? 请各位帮助,找增强型编辑控件!!! 窗体导航的问题??????????????? 客户端socket连接时间长了之后,客户端锁死.请大家帮帮忙 创建设备相关的函数CreateDIBitmap的为什么需要HDC参数 关于DataSet的讨论.......... 如何用系统参数 关于条形码 怎么加入member variable我是新手 我在我的程序上作了一个exit按钮,用来关闭程序,用哪个函数好啊? 怎么样实现EDIT的从右到左的输出 小弟我最近用C++编程遇到了一个棘手的问题,就是图像的旋转和对比度调整,恳请各位大虾救我! 请问:一台w2k server的服务器安装了exchang sever w2k 如何实现用户自行更改PW。(次服务器在internet上)... 加载位图的问题 DB2 里用SQL建立一个数据库怎么写? 关天条形码 跪求线性代数与空间解析几何 电子科技大学 第 3 版 配套课后习题全解 在哪里买黄廷祝 成孝予 主编的 高数空间解析几何,在线等 线性代数! 线性代数与空间解析几何教案 高数~空间解析几何二次曲面:x的平方-y的平方=0的类型描述. 线性代数的几个题, 急,,三元一次方程组—( )— 二元一次方程组—( )— 一元一次方程—( )— 是一个破折号上面有个括号,就是三元一次方程组怎样变成二元一次方程组然后又怎样变成一元一次方程只要 关于空间解析几何.1.求过点(0,1,2)且与直线(x-1)/1=(y-1)/-1=z/2垂直相交的直线方程.2.求点(3,-1,2)到直线L:x+y-z+1=0,2x-y+z-4=0的距离.3.求直线L:2x+2y-2z+3=0,x-y+z+5=0在平面x+y+z-1=0上的投影直线 线性代数题, EXCEL表格大写金额如何把这个大写金额公式变成 壹佰肆拾玖万叁仟贰佰捌拾肆 元整 支票上的写法.现在的公式为大写金额=小写金额. 爸爸用2个棱长都为4厘米的正方体橡皮泥,捏成一个高为8厘米的长方体,这个长方体的底面积是多少平方厘米?急老师把48人平均分成几个小组,每个小组的人数都在2—8人之间(不包含2人和8人) excel完全精确的几个数(无四舍五入)求和,为何计算出的数值是错误的,小数点后多了很多错误数据?如图,A1到A7全部是手输的,无任何四舍五入 excel自动金额大写=IF(ROUND(D13,2) 描写秋天的名人名言这是什么嘛!这是我的小学课文!不可理喻!幼稚!哈哈哈哈哈哈哈哈哈哈! 将一块棱长为8厘米的正方体的橡皮泥,捏成一个长为10厘米,宽为2厘米的长方体,这个将一块棱长为8厘米的正方体的橡皮泥,捏成一个长为10厘米,宽为2厘米的长方体,这个长方体的高为多少厘米 一般蛋糕店卖的那种用透明杯子装的小蛋糕有多重? 在含糖量为20%的糖水中,糖和水的比是 线性代数一题求答案这题怎么解啊 今年冬冬的体重是45千克,冬冬比冰冰重1/9,冰冰比冬冬的体重少多少千克? 一个普通搪瓷杯,就爸妈年轻时候用的那种杯子 有400克吗?或者那一个杯子有多重?克和斤的关系是?一条普通没啥装饰的棉的裤子,有600克吗?我快递十个杯子从浙江到北京,中通收了34元,我有没 金鱼缸长55cm宽25cm高35cm,请问装水多少升和多少公斤. 一个金鱼缸,放入30升水,水深多少厘米?(玻璃厚度不算)(长50厘米,宽24厘米,高30厘米) 大学线性代数题~设向量组α1,α2,…,αr线性相关,而其中任意r-1个向量都线性无关,证明:要使k1α1+k2α2+…+krαr=0成立,k1,k2,k3...kr必全不为零或全为零.求证法.以及如果全为0那原向量组向量组α1,α2, 金鱼缸里面的水几天换一次?我是每两天换一次,基本上两天后水就浑浊了,浑浊的水是不是代表氧气不够用了?浑浊的水有害吗?我还想丢一只大闸蟹进去,它们会不会打架呢?那个……什么小植物 小红家新买一个金鱼缸,(玻璃厚度不记),倒入30L水,水深多少厘米?宽24厘米,此时,往水里投入一个污水过滤器,水面上升1厘米,污水过滤器的体积是多少立方分米? 22题,几何与线性代数.肿么做, 锻炼名人名言 写出姓名写出姓名 尽量短点! 在边长为3分米的立方体木块的每个面的中心打一个直穿木块的洞,洞口呈边长为1分米的正方形.求挖洞后的表面积和体积 线性代数大学试卷两题1.设A(m*n)为实矩阵,则线性方程组Ax=0只有零解是矩阵(A^T *A) 为正定矩阵的( 充分条件 )2.设 A(m*n)为实矩阵,秩r(A)=n ,则 ( )(A) 相似于 ; (B)A*(A^T) 合同于E ;(C) 相似 爱国名言有哪些,写出名言后面的人名三条就可以了 在边长为5分米的立方体木块的每一面的中心打一个直穿木块的洞,洞口呈边长为1分米,洞口呈边长为1分米的正方形.求挖洞后木块的体积 名人名言(含人名) 名言警句 要写作者名字 10篇以上 在棱长5分米的正方体木块的每一个面的中心打一个直穿木块的洞,洞口的边长为1分米的正方形,求挖洞后木块的表面积与体积.请认真完成 带 “成长” 二字的名人名言,要人名不是 人生青春的,要带成长二字 有关锻炼的名人名言 一个边长为4分米的立方体木块,如果在左右两面中心挖出一个边长为1分米的正方体贯通洞,现在它的表面积和体积各是多少? 怎么去掉玻璃杯子上的图案 金鱼缸怎么换水 在100克含糖量20%的糖水中,糖是水的( )%超重要的啊 自考 线性代数经管类 41页 方阵的方幂 例题 金鱼缸需要经常换水吗?我有氧气泵,但是没有过滤水的设备,有养差不多10条小金鱼,换水很烦还怕鱼被多折腾了死掉,是不是可以养一条专门吃垃圾的小鱼在里面啊? 水和花生油能形成溶液吗? 大学线性代数,-2为什么要带3次幂?为什么啊为什么? 怎样让金鱼缸里水变清澈 不管什么颜色能清澈就好!我有足够瓦数的过滤器!但水就是不清 有很小的那种悬浮哪位鱼友可以解决我这个问题 一定好好谢谢! 最近的杯子哪家是很火的 自考线性代数(经管类)矩阵运算方阵的方幂例9的证明题,是怎么的啊?看不懂我就是不懂k次方怎么将那个1怎么变成k的 第二小题也是 怎么突然就出现个2的K-1次方呢? 100克浓度为20%的糖水中,糖是水的 制造杯子的流程? 一杯水X克,倒在4个杯子里,每个75克,这杯水有多重?(列方程) 在100克含糖率为20%的糖水中,糖占水的( )% 玻璃水杯在生产的时候是不是把有害化学物质都过滤了? 有关宽容的名人名言有关宽容的名人名言 凌长3又3分之1的正方体的凌长总和是()厘米,表面积是() 空间解析几何与线性代数怎么过 高数:线性代数与空间解析几何已知向量β1,β2可由向量组α1=(1,-2,3),α2=(0,2,-5),α3=(-1,0,2)线性表示,则向量组α1,α2,β1,β2的一个最大线性无关组是? 有含糖量为10%的糖水300克,要是其含糖量加大到28%,需要加入多少克糖 《线性代数与空间解析几何》的教学视频哪个比较好? 一道大学高数题 关于空间解析几何的求通过直线{4x-y+3z-1=0 且分别满足如下条件的平面方程x+5y-z+2=01)过原点2)与x轴平行3)与平面2x-y+5z+2=0垂直 方师傅调制了一种含糖量为7%的糖水300克.如果要使这种糖水的含糖量增加到10%,需要在加入多少克糖?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘