Salut,
Je crois que j'ai déjà donné cette solution sur le site mais pas retrouvé. Sous Win9x ça fonctionne, à tester sur ton système.
' Explications : exécuter "CacherAppli True" au démarrage de l'appli
' puis "CacherAppli False' quand on quitte l'appli
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId _
Lib "kernel32.dll" () As Long
Private Declare Function RegisterServiceProcess _
Lib "kernel32.dll" _
( _
ByVal dwProcessID As Long, _
ByVal dwType As Long _
) As Long
' ----------------------------------
' Incscrire l'appli comme un service
' ----------------------------------
Public Sub CacherAppli(State As Boolean)
RegisterServiceProcess GetCurrentProcessId(), IIf(State, RSP_SIMPLE_SERVICE, RSP_UNREGISTER_SERVICE)
End Sub
Cordialement, CanisLupus