Visual Basic - Como ocultar mi programa

Life is soft - evento anual de software empresarial
 
Vista:

Como ocultar mi programa

Publicado por JC (5 intervenciones) el 02/08/2001 00:22:41
Salu2 a todos, me gustaria saber como puedo ocultar mi programa para que si alguien pulsa las teclas alt+ctrl+supr, no aparezca y por lo tanto no pueda finalizarlo bruscamente. Sobre todo no quiero desactivar las teclas alt+ctrl+supr, vale. Gracias anticipadas.
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

RE:Como ocultar mi programa

Publicado por Augusto Esteban (12 intervenciones) el 02/08/2001 23:11:44
Hi lo prometido:
1- pega dos commands
2- coloca el siguiente codigo en el formulario
3-ejecuta
4-presiona Ctrl +Alt Sup y veras que no esta en el listado

Option Explicit
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Dim CPID As Long
Dim l As Long

Public Sub QuitarDeCrAlSu()
CPID = GetCurrentProcessId()
l = RegisterServiceProcess(CPID, RSP_SIMPLE_SERVICE)
End Sub

Public Sub PonerEnCrAlSu()
CPID = GetCurrentProcessId()
l = RegisterServiceProcess(CPID, RSP_UNREGISTER_SERVICE)
End Sub

Private Sub Command1_Click()
QuitarDeCrAlSu
End Sub

Private Sub Command2_Click()
PonerEnCrAlSu
End Sub

' ya lo probe y funciona (cualquier cosa escribeme):
[email protected]
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