TIRAR PRG DA LISTA DO CTRL ALT DEL
Como faço para tirar o nome do meu programa da lista de arquivos em execução quando aperto Ctrl+Alt+Del...




Amigo, o windows captura todos os programas em execução, sei como desabilitar estas teclas, se ajudar ai vai,
Veja se os códigos abaixo resolvem seu problema
'Lizaro Dicas Visual Basic v2.0
'Titulo: Impedir que o programa seja encerrado com Ctrl+Alt+Del
'Assunto: Sistema
'Declara o seguinte em um Módulo:
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
Veja se os códigos abaixo resolvem seu problema
'Lizaro Dicas Visual Basic v2.0
'Titulo: Impedir que o programa seja encerrado com Ctrl+Alt+Del
'Assunto: Sistema
'Declara o seguinte em um Módulo:
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
Tópico encerrado , respostas não são mais permitidas