Enlever son appli de la liste des taches

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 798 fois - Téléchargée 94 fois


Contenu du snippet

Comment faire pour cacher mon application de la liste des taches ( ex : je ne veux pas la voir lorsque je fais CTRL+ALT+SUPPR ) ?

Pour Cacher votre application de la liste des taches, il faut que votre appli soit un service !
Il y a une fonction qui permet de rendre un programme sous forme de service.

Mettez ce code dans un Module :

Source / Exemple :


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

A voir également

Ajouter un commentaire

Commentaires

' Et Dans le Form_QueryUnload mettez

Call RendreService !!!!?
Nix : bof a raison : ca serait pas plutot :
' Et Dans le Form_QueryUnload mettez
Call PlusService ?
cs_madVinz
Messages postés
48
Date d'inscription
lundi 22 octobre 2001
Statut
Membre
Dernière intervention
6 août 2002
-
mouais ... ca marche dans la serie des 95/98/ME, mais sous NT/2000/XP ca marche pas ... et puis avec un ProcessViewer ca se voit sous 95/98/ME
AeTuOq28
Messages postés
22
Date d'inscription
samedi 2 août 2003
Statut
Membre
Dernière intervention
26 octobre 2004
-
Sa ne fonctionne pas sur 2000, je confirme :
"Can't find DLL entry point RegisterServiceProcess in kernel32.dll"
cs_Dark_Shadow
Messages postés
35
Date d'inscription
mercredi 7 avril 2004
Statut
Membre
Dernière intervention
1 août 2005
-
Private Sub Form1_Load()
App.TaskVisible = False
End If

tt con et ca marche....

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.