模块中: Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Public Const SPI_SCREENSAVERRUNNING = 97Public Function SetGongNengJian(OK As Boolean) '屏蔽功能键
Dim r As Integer Dim p As Boolean If OK = True Then '使Ctrl+Alt+Del有效 r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, OK, p, 0) Else '使Ctrl+Alt+Del无效 r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, OK, p, 0) End If '如:SetGongNengJian True 使功能键无效(T) 使功能键有效(F) End Function
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97Public Function SetGongNengJian(OK As Boolean)
'屏蔽功能键
Dim r As Integer
Dim p As Boolean
If OK = True Then
'使Ctrl+Alt+Del有效
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, OK, p, 0)
Else
'使Ctrl+Alt+Del无效
r = SystemParametersInfo(SPI_SCREENSAVERRUNNING, OK, p, 0)
End If
'如:SetGongNengJian True 使功能键无效(T) 使功能键有效(F)
End Function