DESBILITAR TECLA WINKEY
olha eu outra vez.
bom eu consegui desabilitar o botão iniciar, isso usando o mouse mas se o funcionario apertar a tecla winkey ele conseque acessar o menu iniciar, alguem sabe como bloquear essa tecla?
bom eu consegui desabilitar o botão iniciar, isso usando o mouse mas se o funcionario apertar a tecla winkey ele conseque acessar o menu iniciar, alguem sabe como bloquear essa tecla?
oi alguem pode me ajudar??
Private Declare Function FindWindow Lib [Ô]user32[Ô] Alias [Ô]FindWindowA[Ô] (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib [Ô]user32[Ô] (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private 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 Function HideStartButton()
Dim Handle As Long, FindClass As Long
FindClass& = FindWindow([Ô]Shell_TrayWnd[Ô], [Ô][Ô])
Handle& = FindWindowEx(FindClass&, 0, [Ô]Button[Ô], vbNullString)
ShowWindow Handle&, 0
End Function
Private Sub Form_Load()
HideStartButton
End Sub
Private Declare Function ShowWindow Lib [Ô]user32[Ô] (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private 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 Function HideStartButton()
Dim Handle As Long, FindClass As Long
FindClass& = FindWindow([Ô]Shell_TrayWnd[Ô], [Ô][Ô])
Handle& = FindWindowEx(FindClass&, 0, [Ô]Button[Ô], vbNullString)
ShowWindow Handle&, 0
End Function
Private Sub Form_Load()
HideStartButton
End Sub
JWCELYO, dessa forma que vc me passou eu já, fiz.
mas é o seguinte quando vc aperta o botão com a bandeirinha no teclado ele abre o menu iniciar.
é isso que eu queria bloquear.
mas é o seguinte quando vc aperta o botão com a bandeirinha no teclado ele abre o menu iniciar.
é isso que eu queria bloquear.
Não garanto plenamente que este software faça apenas isto, mas sei que faz o que precisa pois me ajudou muito no tempo de cs e diablo1 e 2
emerson, muito obrigado mais ainda não deu certo.
Citação:BETOPMJB escreveu:
emerson, muito obrigado mais ainda não deu certo.
Puxa vida, aki sempre funcionou ... lamento então !
Citação:EMERSONTADEU escreveu:
BETOPMJB escreveu:
emerson, muito obrigado mais ainda não deu certo.
Puxa vida, aki sempre funcionou ... lamento então !
muito obrigado emerson...
Tópico encerrado , respostas não são mais permitidas