教程中国
PHOTOSHOP CS9.0中文版 MAYA 8.5 FOR WINDOWS Corel Painter v9.0 Flash MX2004 中文版 Illustrator cs2 中文版
VC++6.0含sp6 中英文版 VB6.0 +sp6 简体中文版 Borland Delphi 7汉化版 MSDN for vb6.0中文版 Visual Studio 2005简体
教程中国下属 文件存储共享专家BIBIDU.COM 提供大型软件,教材,源码,电影,音乐,图书等下载 更多精品请点此进入
  您目前所在位置: 教程中国 >> 电脑网络 >> 办公软件 >> 在pb中屏蔽ctrl alt del 和windows键 RSS订阅
在pb中屏蔽ctrl alt del 和windows键
教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索
IT搜索引擎   
   问:
怎么才能在pb的程序中屏蔽ctrl alt del 和 windows键? 
答:
借花敬佛 ,ilike大哥的文章: 
此程序是调用SystemParametersInfo API函数完成。 

先定义: 

Function uLong SystemParametersInfoA (ulong uAction, ulong uParam, ref 

any lpvParam, ulong fuWinIni) Library "user32.dll" 
Integer SPI_SCREENSAVERRUNNING = 97 
//使Ctrl+Alt+Del失效: 
Integer i_ret 
any any_value 
i_ret = SystemParametersInfoA(SPI_SCREENSAVERRUNNING, 1, any_value, 0) 

//恢复Ctrl+Alt+Del作用: 
Integer i_ret 
any any_value 
i_ret = SystemParametersInfoA(SPI_SCREENSAVERRUNNING, 0, any_value, 0) 


上面这段是陶清网站(pb7.nethome.com.cn)上的方法,严格来说这段代码实际是屏蔽了ctrl+alt+del这个键的组合,而并非不让程序出现在任务列表中。 

这种方法有些缺陷: 

1.其他程序也无法通过这个ctrl+alt+del关闭了,有时候有些程序还是需要通过这个键关的。 

2.任务列表并非只能通过ctrl+alt+del打开的,如果通过其他方法打开,那么这种方法就失效了。 

下面是让程序真正不出现在任务列表的方法: 

定义: 

function long GetCurrentProcessId ( ) library "kernel32" 
function long RegisterServiceProcess ( long dwProcessID, long dwtype ) 

library "kernel32" 

Constant long RSP_SIMPLE_SERVICE = 1 
Constant long RSP_UNREGISTER_SERVICE = 0 

在application -> open event中: 

Long ll_ProcessID 
ll_ProcessID = GetCurrentProcessId ( ) 
RegisterServiceProcess ( ll_ProcessID, RSP_SIMPLE_SERVICE ) 

这样程序将不出现在任务列表中,用户也就无法强行结束任务。 

记住,在application close event中要加: 

Long ll_ProcessID 
ll_ProcessID = GetCurrentProcessId ( ) 
RegisterServiceProcess ( ll_ProcessID, RSP_UNREGISTER_SERVICE) 

来释放资源。 
--------------------
补充:

补充一下,看了DELPHI的API调用,如果不指定SPI_SCREENSAVERRUNNING的值,就可以屏蔽所有热键,你试试 
哦,再找了一下,原来将这个常量设为97就可以屏蔽ctrl+alt+del,alt+tab,ctrl+esc(window键),原理是欺骗wind
续:欺骗windows正处于屏保状态。找得好苦,看来网上的API介绍太不深入了:( 
补充:最重要的一点,在NT或2000下是不可以屏蔽的

来源:编程技术-十度教育
作者:
关键字:pb中屏蔽ctrl,alt,del,windows键
发表日期:2006-10-18 14:06:59

网页显示有限 阅读全文请下载本文完整版WORD文档

上一篇:在pb中用winsock控件使用问题   下一篇:动态生成数据窗口的一个例子


2008-11-24 0:27:13
本文的相类似文章
  • Delphi開發國際化應用程序
  • Delphi编码规范
  • VB 如何识别键盘左右的shift,Ctrl或Alt键
  • VB屏蔽ALT-TAB, ALT-ESC, CTRL-ESC,Win,Win+Any
  • 完美屏蔽Ctrl+Alt+Del 键(VB注入,子类,远程演示)
  • Delphi 3.0中连接数据库的三种方式
  • Oracle中使用SQL MODEL定义行间计算
  • Delphi中BDE直连方式访问Oracle的问题
  • truncate,delete,drop的异同点
  • 用ALTER VIEW来改变视图
  • 在学习中进步 在进步中成长 教程中国相随您的成长之路
    华腾联合科技股份有限公司版权所有
    广告联系:Rosibo@163.com