Hacer oculto al programa en la lista de tareas

[Neo]

Buenos días,

¿Cómo se puede hacer que un programa visual basic aparecezca oculto en la
lista de tareas activas que aparece al pulsar Ctrl+Alt+Supr?

Gracias de antemano por intentar ayudarme.

Saludos,

Neo (http://www34.brinkster.com/mtprg/default.htm)

[Softjaen]

"Neo" preguntó:

>
> ¿Cómo se puede hacer que un programa visual basic aparecezca
> oculto en la lista de tareas activas que aparece al pulsar Ctrl+Alt+Supr?
>

Hola, Neo:

Depende del sistema operativo donde se ejecute la aplicación.

Si usas Windows 9x, te puede valer la función API «RegisterServiceProcess».
Por el contrario, si utilizas sistemas operativos basados en NT, aparte de
que dicha función API no está soportada, no hay posibilidad de evitar que el
usuario pulse la "famosa" combinación de teclas ctrl+alt+del, aunque sí
puedes deshabilitar el botón «Administrador de tareas» del cuadro de diálogo
«Seguridad de Windows». Prueba lo siguiente:

Windows 9x
=========

Option Explicit

Private Declare Function RegisterServiceProcess _
Lib "kernel32" (ByVal ProcessID As Long, _
ByVal ServiceFlags As Long) As Long

Private Declare Function GetCurrentProcessId _
Lib "kernel32" () As Long

Private Sub Form_Load()
' Oculta la aplicación
RegisterServiceProcess GetCurrentProcessId, 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
' Elimina la marca del servicio
RegisterServiceProcess GetCurrentProcessId, 0
End Sub

Windows NT
=========
Si deshabilitamos el botón «Administrador de tareas», nadie podrá ver la
lista de aplicaciones y procesos abiertos. Para ello deberás acceder al
registro de Windows y crear la siguiente clave, si es que no existe:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System

Una vez creada la clave, crea en ella un valor DWORD llamado
«DisableTaskMgr» y establece a 1 su valor. Cuando quieras habilitar de nueva
dicho botón, cambia el valor por un 0.

Un saludo.

--
Enrique Martínez
[MS MVP - VB]

[Neo]

Excelente ayuda Enrique, como siempre, era justo la información que
necesitaba. Da gusto tenerte cerca cuando surgen los problemas... jejejeje
;-D

Gracias compañero. Saludos,

Neo (http://www34.brinkster.com/mtprg/default.htm)

"Softjaen" <soft_jaen@QUITA_ESTO@yahoo.es> escribió en el mensaje
news:OF4jNw9N...@TK2MSFTNGP10.phx.gbl...