VB编程技巧集(中)--站长推荐
如何让Ctrl+Alt+Del组合键无效
按下Ctrl+Alt+Del后,不会调出Windows的结束任务对话框。你可以调用SystemParametersInfo API函数实现这个功能,细节如下:
常量定义:
Const SPI_SCREENSAVERRUNNING=97
API声明:
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA"(ByVal uAction as Long, ByVal uParam as Long, lpvParam as any, ByVal fuWinIni as Long) As Long
代码实现:
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
如想将Ctrl+ALt+Del的功能还原,只需将True换为False。注意:此方案只适用于Windows 9X,NT不适用
按下Ctrl+Alt+Del后,不会调出Windows的结束任务对话框。你可以调用SystemParametersInfo API函数实现这个功能,细节如下:
常量定义:
Const SPI_SCREENSAVERRUNNING=97
API声明:
Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA"(ByVal uAction as Long, ByVal uParam as Long, lpvParam as any, ByVal fuWinIni as Long) As Long
代码实现:
Dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
如想将Ctrl+ALt+Del的功能还原,只需将True换为False。注意:此方案只适用于Windows 9X,NT不适用
文件大小：3.67MB
评论区