Visual Basic - Por los mil demonios...

Life is soft - evento anual de software empresarial
 
Vista:

Por los mil demonios...

Publicado por API-MANIACO (3 intervenciones) el 06/07/2001 23:58:01
NECESITO EL API PARA DESACTIVAR CTRL+ALT+SUPR EN WINDOWS 2000.

THANK
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Respuesta

Publicado por Caleb (30 intervenciones) el 07/07/2001 22:29:59
'Este es el ejemplo para desactivar las teclas de escape
'pero ya te envie un ejemplo Proyect a tu mail

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
Const SPI_SCREENSAVERRUNNING = 97&
'-----------------------------------
Private Sub Command1_Click()
'Este Command1 es para desactivar
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1&, 0&, 0&)
End Sub

Private Sub Command2_Click()
'Este Command2 es Activar
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0&, 0&, 0&)
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar