* * * Bloquer Barra de Tareas y Menu de Inicio * * *

[kakarot]

El otro dia stuve indagando, dime si esto te sirve para ocultar un proceso en tu barra de tareas

Esconde tu programa del listado de procesos Ctrl-Alt-Del

En un módulo escribir el siguiente código..


Codigo:

'Añade dos Command Button a tu formulario. Presiona el 1º para ocultarloy el 2º 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









En un formulario escribir el siguiente código..


Codigo:

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