L'idée est excellente, le produit fonctionne bien, mais quelle idée d'avoir tous mis ca dans le même prog! Je Comprends que vous vouliez démontrer comment éradiquer les multiples instances, mais c'est un tel cafouillis! Heureusement, vous avez bien commenté, me permettant ainsi de comprendre votre code, sans ça...! Mais bravo quand même!
app.previnstance c ton choix .. moi ça fait longtemps que je ne l'utilise plus !
Alors si tu as quelques neurones à perdre... parcours les info de chez MS et tu veras pourquoi ...
Mwouai ...
Pour le conflit entre instance y'a plus simple :
app.previnstance te donne le handle d'une instance probable déja lancée.
Pour la communication entre tes 2 instances il y a une api :
alors avec l'api sendmessage tu peut même evoyer un message personnalisé. entre 2 application (Bien sur à condition que cette appli soit prête à le recevoir sinon il ne sera pas traité).
Voila INSTANCE.EXE est remplacable par 1 ligne pour le problème de l'instance et 1 ligne pour l'API sendmessage, 1 ligne pour l'envoi du message et 2 lignes pour la récupération via un événement personnalisé.
Total 5 lignes.
Ca fait pas mal d'économie de code ainsi que une plus petite perte de
neuronnes.
Bien vu pour W98 Le soucis venait de fait que sous 98 on ne passe pas par la fonction:
Private Sub Class_Terminate()
'Retire le subclass
DetachCallback
End Sub
Pourquoi ???
Donc en fait on ne supprimé pas le callback d'ou le plantage...
La modif : un ajout d'appel de DetachCallback dans la fonction de sortie automatique et l'ajout d'une fonction Public Sub Class_Terminate98() pour l'arrêt en manuel voir exemple ci-dessus.
C a dire ça plante ?? Je n'ai pas testé sous 98 :( mais je ne vois pas trop ce qui peut géner... Essaye de faire comme ça dans l'exemple et recompile..
Private Sub Form_Load()
Label2.Caption = "Cette application est la première instance du programme lancé... " & vbCrLf & _
"Si vous relancer une autre fois l'application alors...." & vbCrLf & vbCrLf & _
"Vous recevrez un message de la deuxièmme instance dans le text box ci-dessus"
'Déclaration de la classe
Set My_Instance = New InstanceClass
'Initialisation de la classe
My_Instance.InitClass Me.hwnd
'Renseigne le texte à faire passer au textbox de l'autre instance
My_Instance.CommandLine = "Message envoyer par la deuxième instance !!! "
'Définition de l'action a réalier
'Ici on anvoie le texte à l'instance déja en mémoire et on arrête le prog
My_Instance.ActionCmd = None
'Vas teste :) :) :)
If My_Instance.PrevInstace = True Then
My_Instance.SendTexte
End
End If
End Sub
bon j'ai encore des problemes pour adapter cette source à mes besoins mais vraimant bravo !!