📄 禁止用户切换任务（转载）.htm
字号:
<html><!-- #BeginTemplate "/Templates/一般文章.dwt" -->
<head>
<!-- #BeginEditable "doctitle" -->
<title>禁止用户切换任务（转载） </title>
<!-- #EndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="编程技术大全" content="编程技术大全，C、C＋＋、Delphi、Java">
<meta name="keywords" content="编程 C C++ Basic Pascal Java Html 数据库 软件 使用 大全 资料">
</head>
<style type="text/css">
<!--
.unnamed1 { color: #000000; text-decoration: none; font-size: 9pt}
-->
</style></head>
<body bgcolor="#C9DDE0">
<table width="100%" border="0">
<tr>
<td width="49%">
<table width="103%" border="0">
<tr>
<td width="51%"><a href="../../index.html" class="unnamed1">首页</a> </td>
<td width="49%" bgcolor="#FF3333">
<div align="center"><font color="#FFFF33"><b>★</b></font><b><a href="http://home4u.china.com/technology/programming/verybook/" target="_blank"><font color="#FFFFCC">编程书籍下载</font></a></b><font color="#FFFF33"><b>★</b></font></div>
</td>
</tr>
</table>
</td>
<td width="41%" class="unnamed1">
<div align="right">New Win98帮助格式 本站所有文章都提供打包下载</div>
</td>
<td width="10%"><a href="../../download.html">下载资料</a></td>
</tr>
</table>
<div align="center">由于碧海银沙有时不支持断线续载，如果您有不能下载的东西，请到<a href="http://go.163.com/%7Everybeauty">网易站</a><br>
对于Turbo C、Turbo C++、Turbo Pascal这些编译器，请到<a href="http://home4u.china.com/technology/programming/verybook/" target="_blank">快意恩仇书社的编程资料</a>相关栏目下载
<br>
</div>
<hr size="4">
<table width="75%" border="0" align="center">
<tr>
<td>
<div align="center">
<script src="http://best.163.com/~blueflybird/ad/banneru_bird.js"></script>
</div>
</td>
</tr>
</table>
<div align="center"></div>
<p><br>
</p>
<table width="80%" border="0" align="center">
<tr>
<td><!-- #BeginEditable "%B7%D6%C0%E0" -->
<p align="center"><small>禁止用户切换任务</small></p>
<p><small><br>
<br>
<br>
<br>
假定我们要设计一个Windows95的口令程序，该程序运行时需要覆盖整个桌 <br>
面，并且不允许用户用Alt+Esc、Ctrl+Esc等系统组合键来切换到其他程序。为 <br>
达到此目的，可按以下步骤： <br>
<br>
将Form的FormStyle属性设为fsStayOnTop <br>
将Form的WindowState属性设为wsMaximized <br>
在Form的OnCreate事件处理过程中为Windows发送一个屏幕保护程序正在运 <br>
行的消息 <br>
当程序结束时清除屏幕保护程序运行标志。 <br>
<br>
示例代码： <br>
<br>
procedure TForm1.FormCreate(Sender: TObject); <br>
var <br>
temp: Integer; <br>
begin <br>
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0); <br>
end; <br>
示例代码： <br>
<br>
procedure TForm1.FormCreate(Sender: TObject); <br>
var <br>
temp: Integer; <br>
begin <br>
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0); <br>
end; <br>
<br>
procedure Form1.OnClose(Sender: TObject; var Action: TCloseAction); <br>
var <br>
temp: Integer; <br>
begin <br>
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0); <br>
end; <br>
<br>
From http://www.netease.com/~seawave/main/frame.html </small></p>
<p>(摘自<small>BBS 水木清华站 </small>)</p>
<!-- #EndEditable --></td>
</tr>
</table>
<hr size="4">
<table width="75%" border="0" align="center">
<tr>
<td>
<div align="center">
<script src="http://best.163.com/~blueflybird/ad/bannerd_bird.js"></script>
</div>
</td>
</tr>
</table>
<span class="unnamed1"><span class="unnamed1"><br>
</span></span>
<p align="center"><span class="unnamed1"><span class="unnamed1"><span class="unnamed1">飞鸟工作室
1999 有任何意见和建议</span></span>请发</span><a href="mailto:blueflybird@163.net">Email</a></p>
</body>
<!-- #EndTemplate --></html>
<html>
<head>
<title></title>
<script language="JavaScript">
function showhide() {
var i, ss, cc, rr;
cc = showhide.arguments;
for (i=0; i<(cc.length-2); i+=3)
{ ss = cc[i+2];
if (navigator.appName == 'Netscape' && document.layers != null)
{ rr = eval(cc[i]);
if (rr) rr.visibility = ss;
} else if (document.all != null)
{ if (ss == 'show') ss = 'visible';
if (ss == 'hide') ss = 'hidden'; rr = eval(cc[i+1]);
if (rr) rr.style.visibility = ss;
}
}}
function keepIE(WinName,WinTop,WinLeft) {
document.all[WinName].style.top=WinTop+parseInt(document.body.scrollTop)+document.body.clientHeight-90
document.all[WinName].style.left=WinLeft+parseInt(document.body.scrollLeft)+document.body.clientWidth-80
}
function keepNN(WinName,WinTop,WinLeft) {
document.layers[WinName].moveTo(self.pageXOffset+WinLeft+window.innerWidth-80,self.pageYOffset+WinTop+window.innerHeight-90)}
</script>
</head>
<body>
<div id="content">
<p><a name="off"></a></p>
<div id="Silversand" style="position:absolute; left:0px; top:0px; z-index:1"><a href="javascript:void(null)" onclick="showhide('document.layers[\'Win0\']','document.all[\'Win0\']','show')"><img SRC="http://www.silversand.net/222.gif" NOSAVE BORDER=0 height=48 width=42></a></div>
<script language=JavaScript>
IE4=(document.all)?1:0
NN4=(document.layers)?1:0
if (IE4)
{
if( (document.body.clientHeight>300)&&(document.body.clientWidth>400) )
{
setInterval('keepIE("Silversand",0,0)',1000)
}
else
{
document.all['Silversand'].style.visibility = 'hidden';
}
}
if (NN4)
{
if( this.window.innerHeight<300 )
{
document.layers['Silversand'].visibility = 'hide'
}
if( this.window.innerWidth<400 )
{
document.layers['Silversand'].visibility = 'hide'
}
else
{
setInterval('keepNN("Silversand",0,0)',1000)
}
}
</script>
<div id="Win0"
style="position:absolute; width:80px; height:120px; z-index:2; visibility: hidden">
<script language=JavaScript>
IE4=(document.all)?1:0
NN4=(document.layers)?1:0
if (IE4)
setInterval('keepIE("Win0",-30,-30)',1000)
if (NN4)
setInterval('keepNN("Win0",-30,-30)',1000)
</script>
<table width="80" border="0"
cellpadding="3" bgcolor="#ECF8FF">
<tr align="CENTER">
<td valign="middle" align="CENTER"><small>
=========<a href="#off" onmouseover="showhide('document.layers[\'Win0\']','document.all[\'Win0\']','hide')">X</a><br>
<a href="http://www.silversand.net/sub/indextech.html" target="_blank" title="WEB技术、编程、软件、硬件及相关资讯">电脑网络<br>系列站点</a><br>
<br><a href="http://bookmark.silversand.net/cgi-bin/bookmark/viewsilversand.cgi" target="_blank" title="碧海银沙全面导航">银沙书签</a><br>
<a href="http://www.silversand.net" target="_blank">碧海银沙</a><br>
</small>
</td>
</tr>
</table>
</div>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -