Ayuda para visual

Hola, querría saber si podéis ayudarme a deshabilitar las teclas control, alt, y suprimir y luego como habilitarlas. Gracias
1

1 respuesta

Respuesta
1
Primero declara esto en el procedimiento general del formulario:
Private Const SPI_SCREENSAVERRUNNING = 97&
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
Luego para deshabilitar las teclas que pides pones:
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnOld, 0&)
para habilitar pones:
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, blnOld, 0&)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas