Passage de paramètre

Question

Salut,

Je voudrais savoir si il est possible de passer un param&#232;tre &#224; une application VB d&#233;j&#224; ouverte.

En fait j'ai une application qu'on lance &#224; partir d'un clic droit sur un fichier dans l'explorateur Windows. L'application s'ouvre est r&#233;cup&#232;re le chemin du fichier dans une ListBox. Mais lorsque que je s&#233;lectionne plusieurs fichiers, l'application s'ouvre autant de fois qu'il y a de fichiers.
 
Ensuite, L'asuce &#233;tait de placer mon application dans le menu "envoyer vers". Lors de la s&#233;lection de plusieurs fichiers, je ne lance bien qu'une fois mon application mais je suis limit&#233; par une s&#233;lection de 22 fichiers sinon Windows m'affiche un message d'erreur.

Sinon (et c'est ce que je fait en ce moment), j'utilise un DragAndDrop avec autant de fichiers que je veux que je d&#233;pose sur ma ListBox et &#231;a marche bien.

Mais je ne suis pas satisfait, je veux pouvoir s&#233;lectionner autant de fichiers que je veux, faire mon clic droit et lancer mon appli. Une fois une premi&#232;re insrance de l'application ouverte, je voudrais que les autres instances la d&#233;tecte et envoient en param&#232;tre le nom du fichier &#224; la premi&#232;re instance qui est d&#233;j&#224; ouverte.

Pffff, j'esp&#232;re avoir &#233;t&#233; clair et surtout que quelqu'un pourra m'aider.

Merci d'avance

Clementio

PCPT · Answer

salut,

ce n'est pas un domaine trop explor&#233; pour ma part, mais tu devrais avoir pas mal de r&#233;sultats avec le mot-clef DDE

@+

PCPT  [AFCK]

ScSami · Answer

En fait, y'a un truc que t'a pas encore vu visiblement... Tu as la possibilit&#233; de limiter l'ex&#233;cution de ton prog &#224; une seule instance. Autrement dit, tu peux le lancer 20 fois qu'il n'y aura qu'une seule fen&#234;tre (je sais pas si je suis tr&#232;s clair l&#224;!!!). Bref, ceci devrait te permettre de faire ce que tu veux m&#234;me si je t'avouerais que moi non plus je n'ai pas approfondi le sujet n'ayant jamais test&#233; cette technique.

Je ne sais plus exactement comment on fait pour limiter ton prog &#224; une seule instance mais c'est soit dans les propri&#233;t&#233;s de ton projet, soit une propri&#233;t&#233; ou m&#233;thode de ta feuille principale. Mais quoi qu'il en soit, regarde dans la MSDN (l'aide).

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

clementio · Answer

Je vois ce que tu veux dire, c'est app.previnstance si c'est true alors l'appli est d&#233;j&#224; lanc&#233;e. Mais &#231;a ne m'aide pas...


J'ai regard&#233; la m&#233;thode DDE mais c'est pas mal confus, je vais donc me tourner vers winsock en esp&#233;rant que je vais y arriver...

Merci en tout cas pour vos r&#233;ponses!!!

Clm

cs_CanisLupus · Answer

Salut,

Si je comprend bien, tu utilises la fonction Command ?

Je ne sais pas non plus passer une multi-sélection en une seule fois au prog mais pour tester si ton appli est déjà en exécution ou non (à placer au début du Main() ou du Form_Load() de démarrage) :

If App.PrevInstance = True Then
  '...
  End
Else
  '...
End If

cs_CanisLupus · Answer

Arf, suis arrivé trop tard, tu as déjà testé et ça ne fonctionne pas ?

clementio · Answer

Je recommence car à chaque fois je perd mon message!!!!

Si ça marche mais en fait je bloque sur le code à mettre si c'est true. Comment faire passer le contenu de Command à la première instance de l'application qui elle est déjà lancée?

cs_CanisLupus · Answer

Faute de mieux, j'ai testé une méthode un peu "bourrin" mais qui fonctionne (en tous cas sous VB6) :

Mon test s'est porté sur un prog contenant une simple form mais tu peux adapter si tu passes par une sub main() en collant les api et la constante dans le module contenant la main().
L'idée est de fermer la précédente instance du prog pour pouvoir traiter la nouvelle commandline.

'déclaration des API
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'constante utilisée
Private Const WM_CLOSE = &H10

Private Sub Form_Load()
Dim hwnd As String

  If App.PrevInstance = True Then
  
    'lecture du handle du prog déjà lancé
    Open App.Path & "\handle.dat" For Input As #1
    Line Input #1, hwnd
    Close #1
    
    'fermeture de la précédente instance
    Call PostMessage(CLng(hwnd), WM_CLOSE, 0, 0)
    
    'sauvegarde du nouvel handle du prog
    Open App.Path & "\handle.dat" For Output As #1
    Print #1, FindWindow(vbNullString, App.EXEName)
    Close #1
    
  Else
  
    'sauvegarde du handle du prog
    Open App.Path & "\handle.dat" For Output As #1
    Print #1, FindWindow(vbNullString, App.EXEName)
    Close #1
    
  End If
  
  '... la suite de ton code
  
End Sub

J'espère que ça pourra t'aider.

Bonne prog

clementio · Answer

Merci pour cet exemple mais on peut écrire "Me.Hwnd" à la place de "FindWindow(vbNullString, App.EXEName)" et je ne vois pas comment tu passes le "Command" à l'autre instance???

cs_CanisLupus · Answer

Pour me.hwnd, ok si tu n'as qu'une form dans ton appli.
Pour le command, j'ai cru comprendre que tu savais le récupérer donc, où est le problème ? Tu places ton code lisant les paramètres de la commandline à la place de '... la suite de ton code et ça devrait le faire.

clementio · Answer

Problème résolu!!!

Merci pour vos réponses et j'ai déposé une source là-dessus si ça vous intéresse:

http://www.vbfrance.com/codes/GLOBALGETATOMNAME-POUR-PASSER-MESSAGES-ENTRE-DEUX-APPLICATIONS_36426.aspx

Passage de paramètre

10 réponses

Discussions similaires