Visual Basic - Ctrl+Alt+Del y tecla Windows

Life is soft - evento anual de software empresarial
 
Vista:

Ctrl+Alt+Del y tecla Windows

Publicado por Diana (2 intervenciones) el 24/01/2003 19:52:37
Hola Chicos :
Tengo un programa que hizieron para la compañia donde trabajo pero el programador solo escondio el administrador de tareas ... asi que si uno es lo suficientemente rapido puede finlizar el programa y salir al windows XP.

Por favor ... hay alguna manera de desactivarlo ?

Muchas Gracias por sus respuestas,
Saludos,
D.

PD: Tambien quisiera hacer lo mismo con la tecla Windows.

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:Ctrl+Alt+Del y tecla Windows

Publicado por Rodolfo del Peru (454 intervenciones) el 24/01/2003 20:50:23
Dianita, prueba el siguiente codigo, sacado de www.ambsoftware.com:

El siguiente ejemplo nos muestra cómo ocultar nuestra aplicación del listado de procesos activable con la combinación de teclas Ctrl-Alt-Del.

Para ello añadimos dos Command Button a un formulario. Presione el primero para ocultarlo y el segundo para mostrarlo de nuevo.

Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0

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

Public Sub HideApp(Hide As Boolean)
Dim ProcessID As Long
ProcessID = GetCurrentProcessId()
If Hide Then
retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
Else
retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
End If
End Sub

Private Sub Command1_Click()
HideApp (True)
End Sub

Private Sub Command2_Click()
HideApp (False)
End Sub

Saludos desde Lima
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