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

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

用Delphi 设 计 拨 动、 跳 线 开 关 组 件 用Delphi实现JPEG格式图像的显示 用Delphi制作动态有声标签 运行时生成控件-Delphi资料 在DBGRID中实现COPY、PASTE功能-Delphi资料 在Delphi程序的About窗口中建立URL连接 在Delphi中利用Tbatch组件完成数据批处理 在Delphi中巧改窗体文件实现控件数组化 在Delphi中实现不同风格的SPEED和BUTTON 在Delphi中实现类似VB中的控件数组。 在RichEdit中的串查找-Delphi资料 在按钮中快速启动程序-Delphi资料 怎样读出MEMO控件的当前值-Delphi资料 怎样使用Delphi 5中的TExcelApplication操纵Excel 97/2000 怎样在TDataset中汉英混用-Delphi资料 制作可移动的窗体的MovePanel控件-Delphi资料 制作可移动的分割窗体-Delphi资料 制作用于日期时间型字段的DELPHI数据感知控件 制作主窗口显示前的版权窗口-Delphi资料 状态条插入可视控件-Delphi资料 做动态显示的控件-Delphi资料 做一个OpenGL控件-Delphi资料 Api函数列表——与打印相关-Delphi资料 Delphi 5快速创建控制面板程序 Delphi 编写Windows NT服务 Delphi 的 分 发 工 具 ─ ─InstallShield Delphi 关于系统编程中的技巧 Delphi3如何调用Excel Delphi5.0中的函数调用模式 用Delphi 编 程 时 如 何 利 用 线 程 Delphi的8个技巧 代码出现bebug.请大家帮我找!!!! TO:net_lover(孟子E章),详情请入内! 有谁用过DEV express系列的dxdbgrid??它是如何把一个文本文件txt读到dxdbgrid1.columns[i]的picklist中去,作为picklist的内容的啊? 我想在Linux下做数据库开发,用什么数据好? 我的pws可能出了问题,那位高手能解决一下 关于控制winamp 各位同行你们有这个的源程序吗(Cacio DT-900数据采集器) Html Help 制作方法 luodi(无知者无畏), 请进: 我用shell(app.path+"\mdac.exe"),来调用微软数据访问控件2.0,提示出错:命令行语法错误, 求救:如何将剪贴板中的内容放到image控件上 how to get the sytax of customer user object ? jsp中的打印问题 pb中有没有类似iif之类的语句 大虾们,怎样将String 类型转换成float 请问在及时战略中,怎么实现寻路的 我想在状态栏显示时间,有没有属性可以让时间自动变化,而不用其它辅助控件? 不会没人愿意回答这个问题吧,都贴第二次了!! 吃西瓜 我在注冊自創構件時總是出錯,請各位幫忙解決. 关于ado连接sybase的问题,紧急求救!!!(我的最高分了) 29分:flexcell定位 请教一下,关于Delphi COM类型库的问题 大家来谈谈申奥成功对我们的影响吧,我想知道怎么利用这个契机大赚一笔 各位谁喜欢“后街男孩”??喜欢的给分! 请问在DBGRID中改变当前选定行的颜色? 我想在DataSourceDataChange()中实现。 客户端怎么与服务器端通信 为什么我在窗口里修改了一个记录的图片字段后,在数据窗口内不能正常显示? 我要在RedLinux71下安装WEB服务器软件,请部如何做? 如何计算某年某月的天数和每天对应的星期 help!!! 为什么我的D6在编译时出现错误:“Fatal Error QuickRpt.pas(23):File not found:'Dsgnintf.dcu' 帝国时代之农民搞笑版……哈哈 如何用DEBUG的命令取消cmos密码!!!急急急! 请教一个Redhat安装的问题 该死的创新virba128…… 急!!!给tripofdream(梦之旅)和能解决全文检索的高手! 有台WIN95机器启动是时出错缺文件mtrr.vxd,udf.vxd谁能帮我! 对于BMP图象的旋转(90、180)的处理。用BitBlt()能否实现。 《Windows网络编程技术》例子中的一个问题。 急!各位帮忙!!!!!!!!!!! 这个java程序有什么问题吗? 那能下载win2000profesional? oracle sql语句高手请进,为什么这句话无法执行,好像上了锁,来解一下吧! 有谁真正的用ado结合oracle做开发。 一个clientsocket的问题!当serversocket没有启动时,clientsocket总是有个弹出提示,如何不显示这个提示? Redhat下如何安装电视卡? 我们单位购置了两DELL的服务器,需要添置UPS 请教一下.添置UPS要考虑些什么因素 没去过“灌水乐园”的人那去看一看,包你不会失望…………哈哈 Windows显示缓冲的问题!!! 我越来越对CSDN没信心了,我想我该走了 高分求解Win2000Pro版的上网问题 一个圆柱体的侧面积是50.24平方厘米,高和底面半径相等,这个圆柱体的表面积是多少平方厘米?算式和结果, 把一根长2.4米的长方体本料锯成5段,表面积比原来增加了96平方厘米,这根木料原来的体积是多少立方厘米 一个圆柱形木材长20分米,把它锯成4个相等的圆柱体,表面积增加18.84平方分米.原来圆柱形木材的表面积是多少? 一个圆柱体的侧面积是100.48平方厘米,高和底面半径相等,这个圆柱体的表面积是多少? 把一长3米的长方体木料锯成4段,表面积比原来增加90平方厘米,这根木材原来的体积是多少立方厘米?快 一个圆柱形木材长20分米,把它锯成4个相等的圆柱体,表面积增加18.84平方分米.原来圆柱形木材的表面积是? 一个圆柱体,如果高增加1cm,表面积就增加50.24平方厘米.这个圆柱的底面积是多少?我是说表面积不是侧面积 将一米长的长方体木料平均锯成两段后,表面积增加了七十平方厘米.原来这根木材的体积是多少立方厘米? 一根长1.5m的圆柱体木料,锯掉4dm长的一段后,表面积少了50.24dm²,这跟木料原来的体积是多少?如果有解题思路等等更好~ 一个圆柱体的高减少2厘米,表面积就减少50.24平方厘米.圆柱体底面面积是多少? 把一根3米长的长方体木料锯成4段后表面积比原来增加300平方厘米,这根木材原来的体积是多少立方厘米? 求一个长一米的圆柱体木材锯成两段表面积增加6.4平方米,原来木材体积是多少? 一个圆柱体,如果它的高增加2厘米,它的表面积就增加50.24平方厘米,这个圆柱体的底面半径是多少? 把一根长80厘米的长方体木料锯成两段,表面积增加了20平方厘米,原来木料的体积是( )立方厘米. 把一段长二十分米的圆柱体木头沿着底面直径劈开,表面积增加80平方分米.原来这段圆柱体木头的表面积是多少? 一个圆柱的高增加4厘米表面积增加50.24平方厘米,求圆柱体的底面积 把一根5米长的长方体木料锯成5段后,表面积比原来增加128平方厘米.这根木料的体积是多少平方厘米? 把一段长20分米的圆柱体木头截成5段后,表面积增加了80平方分米,那么这段圆木的体积是多少 一个圆柱体的高是5厘米,若高增加3厘米,圆柱的表面积就增加37.68,原来圆锥体的体积是多少立方厘米 把一根长2米的长方体木料锯成两段后,表面积增加了100平方厘米,它的体积是() 把一个直径5分米的圆柱体木头沿着底面直径劈开,表面积增加80平方分米,原来木头的表面积是() 把高10厘米的圆柱沿底面直径切开,拼成一个近似的长方体,表面积就增加了60平方厘米,圆柱体的体积的多少 将一个长2米的长方体木料锯成3段,表面积增加160平方厘米,原来长方体的体积是多少立方厘米? 一个圆柱体木头,底面直径为4dm,沿底面直径将其切成两部分,表面积增加了80平方分米,这更木头的体积是()立方分米 圆柱体底面直径4厘米,分成若干份拼成一个长方体,长方体表面积比圆柱体表面积增加40厘米,求长方体体积 一根圆柱形木材长10m结成两根圆柱题后 表面积增加了1.2㎡ 原来这跟木料的体积是多少立方米 一根圆柱体木头,底面直径为4分米,沿底面直径将其切成两部分,表面积增加了80平方分米这根木头的体积是多少立方分米? 将一个直径10CM的圆柱体沿直径平均切成若干份,拼成一个长方体,表面积增加了20平方厘米圆柱体的体积是多 把一根2米长的圆柱体木料截成三段,表面积增加了8平方分米,这根木材的体积是多少立方分米? 把一根4米长的圆柱体形状的木料截成长度相等的两段后,表面积比原来增加了4.8平方分米.这根圆木原来的体积是多少立方米? 把一个底面直径20厘米圆柱体的底面分成若干个相等的扇形,拼个长方体,表面积增加了400平方求圆柱体的体积 把一根2米长的圆柱体木料截成3段,表面积增加12平方分米,这根木料得体积是 多少立方分米? 三分之一,五分之一,六分之一,十分之一可以组成几个比例? 把高10厘米的圆柱沿底面直径切开,拼成一个近似的长方体,表面积就增加了60平方厘米,圆柱体的体积是多少60平方厘米,圆柱体的体积是多少立方厘米 把一根2米长的圆柱体木料截成3段,表面积增加12平方分米,这根木料得体积是 ()立方 1,3,6,10,15,21.第N个数是多少?快回答 将一个圆柱体切开后拼成一个近似的长方体,表面积增加了6平方厘米,已知长方体高是3厘米,求圆柱体的体积我是新人, 把一根长1米的圆柱体木料横截成两段,表面积增加了4平方分米,这根圆柱体木料原来的体积是( )立方分米. 1 3 6 10 15 21求第n是多少 长方体与圆柱体体积相等,长方体表面积比圆柱体表面积大48,求圆柱体体积圆柱体的高为6分米,把圆柱体底面分成若干个相等的扇形,然后拼成等底等高的长方体,长方体的表面积比圆柱体 一根圆柱形木材长20分米,分成4个相等的圆柱体,表面积增加了,18.84平方分米,雨昂来圆柱体的表面积是多少? 问1+3+6+10+15+21+.+(1+n)*n/2=?n指第N个数.其实本来这个问题是这样的,一个图形,三棱锥,第一层(从上往下数)1个点,第二层(从上往下数)3个点,第三层6个点,第四层10个点,第五层21个点.假设有n 长方体、正方体、圆柱体在表面积相等的情况下,哪个体积更大?(要做过测验的)怎样才能判定哪个体积更大 用怎样的方式 谁有具体数据?测量过的?有算式也可以 一根圆柱木材长20分米,分成4个相等的圆柱体,表面积增加了18.84平方分米.原来圆柱形木材的表面积是多少今天一定要回答啊, 1/3+1/6+1/10+1/15+1/21+…1/55 正方体、长方体、圆柱体、圆锥体、球体的表面积和体积各是多少? 一根圆柱形木材长20分米,分成4个相等的圆柱体,表面积增加了18.84 平方分米.原来圆柱形木材的表面积是多少 1+1/3+1/6+1/10+.+1/5050分母分别是1+2,1+2+3,1+2+3+4,1+2+3+4+5.1+2+3+..+100 在一个地面直径为4分米的圆柱体上截去一个高2分米的小圆柱体,原来圆柱体的表面积减少( )平方米 在体积相等的情况下,正方体,圆柱体,长方体那个表面积最小? 一根圆柱形木材长10m,截成两根圆柱形后,表面积増加了0.4平方米.原来这根木材的体积是多少立方米? 从一个高1米,底面直径为4分米的圆柱体上,截下一个高2分米的小圆柱体,原来圆柱体的表面积减少了多少平方分 把一个圆柱体切割后拼成近似的长方体,它的体积怎么样表面积怎样 一根圆柱形木材长8米,截成两段后,表面积增加了0.2平方米.原来这根木材的体积是多少立方米? 一个圆柱体的底面直径和高都为10分米,这个圆柱体的表面积是多少平方分米? 把一个圆柱体切拼成一个近似的长方体,表面积怎家300cm2,原来圆柱体的体积为多少?表面积增加300cm2, 一根圆柱形木材长8cm截成两段后,表面积增加了0.2平方米.原来这根木材的体积是几立方米?我要算式, 一个圆柱体的侧面积是50.24CM2,高恰好与底面半径相等,这个圆柱体的表面积是多少? 把一个圆柱体切拼成一个近似长方体后,体积变不变 把一根6米长的圆柱形木材横截成两段后,表面积比原来增加了2.4平方米,这根木材原来的体积是多少立方米?完整的式子
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn