IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Application dans Systray


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Inscrit en
    Janvier 2007
    Messages
    3
    Détails du profil
    Informations personnelles :
    Âge : 50

    Informations forums :
    Inscription : Janvier 2007
    Messages : 3
    Par défaut Application dans Systray
    ben j'ai peu le même soucis que dans cette discussion.

    En fait, j'ai une appli avec un systray, mais quand l'appli est minimizée, ça reste affiché dans le gestionnaire des taches, et ça serait mieux de l'avoir dans l'onglet processus.

    j'ai trouvé un module, mais ça marche que sur Win95-98, pas sur les versions NT (de NT4 à XP) et il ne disent pas pourquoi:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
     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 y a un message d'erreur à l'appel du RegisterServiceProcess:
    Erreur d'execution '453'

    Point d'entrée RegisterServiceProcess d'une DLL introuvable dans Kernel32.dll
    ça veut dire quoi exactement?
    Merci

  2. #2
    Candidat au Club
    Inscrit en
    Janvier 2007
    Messages
    3
    Détails du profil
    Informations personnelles :
    Âge : 50

    Informations forums :
    Inscription : Janvier 2007
    Messages : 3
    Par défaut
    après qlq recherche, le fonction RegisterServiceProcess n'existe pour win9x, dommage...

    sinon il y a App.TaskVisible = False mais l'appli est completement invisible?!

    quelqu'un a une solution pour remplacer cette fonction?

  3. #3
    Membre Expert
    Avatar de Delbeke
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    2 675
    Détails du profil
    Informations personnelles :
    Âge : 72
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 2 675
    Par défaut
    Pour faire un service a partir d'un programme VB, il est possible d'utiliser le composant microsoft NtSvc.ocx. une petite recherche sur le net devrait rapidement permettre de le télé-charger.
    Le metre en oeuvre n'est pas forcement facile. Donc une bonne sauvegarde du source qui marche est a conseiller avant de le modifier pour integrer ce composant

  4. #4
    Candidat au Club
    Inscrit en
    Janvier 2007
    Messages
    3
    Détails du profil
    Informations personnelles :
    Âge : 50

    Informations forums :
    Inscription : Janvier 2007
    Messages : 3
    Par défaut
    c'est ce que j'avais vu, mais je ne voulais pas passer par un ocx ou dll etc...

    mais bon apparement j'ai pas le choix, dommage

    merci

Discussions similaires

  1. Réponses: 2
    Dernier message: 17/03/2015, 08h53
  2. Application dans le systray
    Par Gregory.M dans le forum Windows Forms
    Réponses: 5
    Dernier message: 23/05/2008, 13h39
  3. SetForegroundWindow d'une application dans le systray
    Par seb.49 dans le forum Windows Forms
    Réponses: 2
    Dernier message: 18/02/2008, 11h48
  4. Insertion d'une Application dans le Systray
    Par mkiba dans le forum Langage
    Réponses: 1
    Dernier message: 07/11/2007, 14h05
  5. [CODE] Application dans la zone de notification
    Par Rodrigue dans le forum C++Builder
    Réponses: 4
    Dernier message: 29/05/2003, 19h06

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo