用Delphi实现禁止用户关闭Window9X

时间： 2021-07-31 作者：daque

----在软硬件的安置或演练操纵等进程中，即使封闭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实现禁止用户关闭Window9X

相关推荐

推荐下载

热门阅览

最新排行