INTERCEPTA CTRL ALT DEL

USUARIO.EXCLUIDOS 16/08/2007 17:18:46
#231231
Preciso de ajuda e sou usuário do win98, mas fiz um gerenciaodr melhor q o próprio finalizar do win98. Só que eu gostaria de intercepta o ctrl+alt+del para q ao invés de chamar o finalizar chama-se meu gerenciador de tarefas, se for possível me ajudem...
USUARIO.EXCLUIDOS 16/08/2007 17:35:46
#231238

Ae..tenta isso..pode ser q de certo!!

Public Declare Function GetCurrentProcessId Lib _
"kernel32" () As Long
Public Declare Function GetCurrentProcess Lib _
"kernel32" () As Long
Public Declare Function RegisterServiceProcess _
Lib "kernel32" (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long

Public Const RSP_SIMPLE_SERVICE As Long = 1
Public Const RSP_UNREGISTER_SERVICE As Long = 0


Crie a seguinte Sub:
Public Sub MakeMeService()
  Dim pid As Long
  Dim reserv As Long
  pid = GetCurrentProcessId()
  reserv = RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE)
End Sub



Depois coloque o seguinte no FORM_LOAD:

Private Form_Load()
MakeMeService
End Sub

Boa sorte e sucesso
USUARIO.EXCLUIDOS 23/08/2007 17:05:47
#232395
pow eu queria tipo aqueles de cyber café, que quando o ctrl+alt+del é precionado aparece uma caixa de mensagem...
USUARIO.EXCLUIDOS 24/08/2007 07:05:01
#232480


Simples..

é só colocar um msgbox aki


Private Form_Load()
MakeMeService
Msgbox "Proibido Essas teclas bla bla bla <<<<<<<<<<<<<<<<<<
End Sub


tenta ae
USUARIO.EXCLUIDOS 26/08/2007 01:12:01
#232708
Kra valeu, só q não funfou... Eu queria tipo o do opticyber que quando o ctrl alt del é precionado aparece uma caixa de mensagem...
Vlw!!!
USUARIO.EXCLUIDOS 26/08/2007 18:03:09
#232734
Mas vc quer q trave, ou seja, impossibilite de funcionar os botões,
ou q apenas mostre a msg?
Tópico encerrado , respostas não são mais permitidas
Voltar