[VB6] Nascondere applicazione

[dado86ssj]

Ciao, qualcuno sa come fare a nascondere il nome dell'applicazione dalla lista dei programmi in esecuzione nel task manager che appare premendo CTRL+ALT+CANC??
Grazie

[goku370]

In che sistema operativo?

Per quel che ne so in Win 2000/XP non è possibile nascondere l'applicazione alla cartella "PROCESSI". In questo caso però si può disabilitare totalmente il Task Menager... Dipende dal S.O.

[calldavid]

Se stai usando Win 9x (95, 98 o Me)

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Sub MakeMeService()
Dim pid As Long, regserv As Long
'Get the current process ID
pid = GetCurrentProcessId()
'Register as service
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
Dim pid As Long, regserv As Long
'Get the current process ID
pid = GetCurrentProcessId()
'Unregister as service
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
MakeMeService
'Right now, you're program is hidden from the CTRL-ALT-DEL-list
End Sub
Private Sub Form_Unload(Cancel As Integer)
UnMakeMeService
End Sub

ATTENZIONE: non funziona con Win NT o XP

Puoi trovare il codice su www.allapi.net

[dado86ssj]

Grazie, questo metodo lo userò per windows 98, invece per windows xp non è necessario che sparisca dal task manager, basta che non compaia direttamente nella scheda "applicazioni", anche se rimane sotto "processi" non fa niente...

[SimoneVB]

Ciao,
per entrambi i tipi di S.O. (Win9x/Me o NT/2000/XP) ti basta
scrivere:

App.TaskVisible = False