Visual Basic - bloquear tecla inicio

Life is soft - evento anual de software empresarial
 
Vista:

bloquear tecla inicio

Publicado por jorge armando (1 intervención) el 25/06/2004 00:55:05
hola nesecito saber como puedo bloquear la tecla que activa el menu inicio.
gracias
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
Imágen de perfil de RAUL
Val: 2
Ha aumentado su posición en 97 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:bloquear tecla inicio

Publicado por RAUL (443 intervenciones) el 25/06/2004 15:08:46
Este es el codigo para bloquear CTrl+ALT+DEL,QUIZAS TE SIRVA tsl vez cambiando la constante o algun parametro, espero que te ayude>

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
Private Const SPI_SCREENSAVERRUNNING = 97&

Private Sub DesHabilitar_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, blnOld, 0&)
End Sub

Private Sub Habilitar_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, blnOld, 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

RE:bloquear tecla inicio

Publicado por Draker (10 intervenciones) el 26/06/2004 17:27:44
Este código no bloquea la tecla del menñu de inicio pero si bloquea el boton en pantalla al hacer click sobre el, es una solución parcial, pero talvez de ayuda a encontrar lo que necesitas

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Public Sub StartB(ByVal Enab As Boolean)
Dim lHwnd As Long
lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString)
Call EnableWindow(lHwnd&, CLng(Enab))

End Sub

' En un checkbox:

Private Sub chkSB_Click()
If chkSB.Value = 0 Then
StartB False
chkSB.Caption = "Boton de Inicio Inhabilitado"
Else
StartB True
chkSB.Caption = "Boton de Inicio Habilitado"
End If
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