问：
怎么才能在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下是不可以屏蔽的
|
当前位置：
