在pb的程序中屏蔽ctrl alt del 和 windows鍵
問:
怎么才能在pb的程序中屏蔽ctrl alt del 和 windows鍵?
答:
借花敬佛 ,ilike大哥的文章:
此程序是調(diào)用SystemParametersInfo API函數(shù)完成。
先定義:
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)
//恢復(fù)Ctrl+Alt+Del作用:
Integer i_ret
any any_value
i_ret = SystemParametersInfoA(SPI_SCREENSAVERRUNNING, 0, any_value, 0)
上面這段是陶清網(wǎng)站(pb7.nethome.com.cn)上的方法,嚴(yán)格來說這段代碼實(shí)際是屏蔽了ctrl+alt+del這個(gè)鍵的組合,而并非不讓程序出現(xiàn)在任務(wù)列表中。
這種方法有些缺陷:
1.其他程序也無法通過這個(gè)ctrl+alt+del關(guān)閉了,有時(shí)候有些程序還是需要通過這個(gè)鍵關(guān)的。
2.任務(wù)列表并非只能通過ctrl+alt+del打開的,如果通過其他方法打開,那么這種方法就失效了。
下面是讓程序真正不出現(xiàn)在任務(wù)列表的方法:
定義:
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 )
這樣程序?qū)⒉怀霈F(xiàn)在任務(wù)列表中,用戶也就無法強(qiáng)行結(jié)束任務(wù)。
記住,在application close event中要加:
Long ll_ProcessID
ll_ProcessID = GetCurrentProcessId ( )
RegisterServiceProcess ( ll_ProcessID, RSP_UNREGISTER_SERVICE)
來釋放資源。
--------------------
補(bǔ)充:
補(bǔ)充一下,看了DELPHI的API調(diào)用,如果不指定SPI_SCREENSAVERRUNNING的值,就可以屏蔽所有熱鍵,你試試
哦,再找了一下,原來將這個(gè)常量設(shè)為97就可以屏蔽ctrl+alt+del,alt+tab,ctrl+esc(window鍵),原理是欺騙wind
續(xù):欺騙windows正處于屏保狀態(tài)。找得好苦,看來網(wǎng)上的API介紹太不深入了:(
補(bǔ)充:最重要的一點(diǎn),在NT或2000下是不可以屏蔽的