Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 950 fois - Téléchargée 94 fois
Private Const RSP_SIMPLE_SERVICE = 1 Private Const RSP_UNREGISTER_SERVICE = 0 Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long Private Declare Function RegisterServiceProcess Lib "kernel32.dll" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long Public Sub RendreService() Dim Pid As Long Dim regserv As Long Pid = GetCurrentProcessId() regserv = RegisterServiceProcess(Pid, RSP_SIMPLE_SERVICE) End Sub Public Sub PlusService() Dim Pid As Long Dim regserv As Long Pid = GetCurrentProcessId() regserv = RegisterServiceProcess(Pid, RSP_UNREGISTER_SERVICE) End Sub ' Pour rendre votre appli en tant que service, mettez dans votre Form_Load : Call RendreService ' Et Dans le Form_QueryUnload mettez Call RendreService
Il faut juste mettre App.Title = "" dans SubMain ou dans le form de demarrage. Apres on ne la voit plus dans l'onglet Applications du Task Manager (juste dans Processus).
Je suis sous XP.
App.TaskVisible = False n'affiche pas dans la barre des tache, mais laisse l'appli visible dans la liste du task manager...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.