Visual Basic - Ke no aparezca en el Admin de tareas

Life is soft - evento anual de software empresarial
 
Vista:

Ke no aparezca en el Admin de tareas

Publicado por Daniel Mendez (13 intervenciones) el 27/02/2007 18:34:58
Holass.
Estoy trabajando Visual Basic 6 y kiero saber como hago para que mi aplicacion no aparezca en la lista de aplicaciones del administrador de tareas del XP. ke no aparezca el la lista de aplicaciones y ke si aparezca en la lista de procesos.

Agradeceria su valiosa ayuda kien kiera ke sea,...

Gracias
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:Ke no aparezca en el Admin de tareas

Publicado por Benjo (679 intervenciones) el 27/02/2007 19:13:33
Daniel:

Existen dos formas para hacerlo. Una muy común es establecer la propiedad
App.TaskVisible = False .

La contra es que si bien desaparece del Adminsitradopr de Tareas, también desaparece de la Barra de Tareas.

Lo más recomendable es utilizar las API de Windows.
Un poco más engorroso, pero no tanto si es que trabajas con módulos.

'En un Modulo copia las siguientes lineas.

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 = 1
Public Const RSP_UNREGISTER_SERVICE = 0

'En el Formulario pegás estas líneas
' y colocá dos botones command

'Para remover el Programa
Public Sub RemoveProgramFromList()
Dim lngProcessID As Long
Dim lngReturn As Long

lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(lngProcessID, RSP_SIMPLE_SERVICE)
End Sub

'Para restaurarla
Public Sub AddProgramToList()
Dim lngProcessID As Long
Dim lngReturn As Long

lngProcessID = GetCurrentProcessId()
lngReturn = RegisterServiceProcess(lngProcessID, RSP_UNREGISTER_SERVICE)
End Sub

Private Sub Command1_Click()
RemoveProgramFromList
End Sub

Private Sub Command2_Click()
AddProgramToList
End Sub

En Xp con SP1 funcionaba correctamente, nunca lo chequee con SP2

Buena suerte.
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