• Viernes 29 de Marzo de 2024, 10:34

Autor Tema:  Re: URGENTE  (Leído 762 veces)

rlarrea

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
Re: URGENTE
« en: Miércoles 11 de Junio de 2003, 16:49 »
0
Alguien sabe como hacer para que mi programa no aparezca en el administrador de tareas de windows ......es urgente amigos bye.
Rocky Larrea Chira
Lima -- Peru
Programador

NSM

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
URGENTE
« Respuesta #1 en: Lunes 25 de Agosto de 2003, 02:31 »
0
Fijate que esa pregunta ya la hicieron y la respondieron en este mismo foro pero mas atras.

La respusta que ya dieron fué:
Espero que esto te sirva -)

coloca todo esto en un modulo

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
Luego haces un llamado desde un formulario de la siguiente forma

hideapp (true) 'para que no este en la lista de tareas.
hideapp (false) 'para aparecere en la lista de tareas.