首页

在pb的程序中屏蔽ctrl alt del 和 windows键

减小字体

增大字体作者：佚名来源：本站整理发布时间：2019-04-28 13:23:45

　　问：
怎么才能在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 和...

在pb的程序中屏蔽ctrl alt del 和 windows键

Tags：

栏目导航

本类热门阅览

相关文章