Empêcher l'ouverture du programme si celui-ci est déjà ouvert par un autre utiliRésolu

Question

Bonjour,
Je développe une application VB, ce programme est accessible par plusieurs utilisateurs.
je voudrais empêcher l'ouverture du programme si celui-ci est déjà ouvert par un autre utilisateur sur le réseau.
Comment dois-je m'y prendre?

Theos !

Renfield · Accepted Answer

valable sur le même poste, même... 
donc ca ne va pas pour une utilisation pour le réseau.

tu peux passer par des APIs, d'autres choses du genre, ou pour faire un truc hyper simple, te contenter de créer et laisser un fichier ouvert...

Demande a executer la procédure Main au démarrage du projet (a regler dans els propriétés de ce dernier)

dans un module normal (Module1) ajoutes :

Option Explicit

Private moApp As CSingleInstance

Sub Main()
    Set moApp = New CSingleInstance
    If moApp.IsAlreadyLaunched Then
        MsgBox "Application en cours d'utilisation sur un autre poste."
    Else
        Form1.Show
    End If
End Sub


Ajoutes également un module de classe nommé CSingleInstance et colles-y:

Option Explicit

Private mbIsAlreadyLaunched As Boolean
Private miFile As Integer

Public Property Get IsAlreadyLaunched() As Boolean
    IsAlreadyLaunched = mbIsAlreadyLaunched
End Property

Private Sub Class_Initialize()
    If LenB(Dir$(App.Path & "\a.txt")) Then
        On Local Error Resume Next
        Kill App.Path & "\a.txt"
        If Err Then
            mbIsAlreadyLaunched = True
            Exit Sub
        End If
    End If
    
    miFile = FreeFile
    Open App.Path & "\a.txt" For Output As miFile
End Sub

Private Sub Class_Terminate()
    If Not mbIsAlreadyLaunched Then
        Close miFile
        Kill App.Path & "\a.txt"
    End If
End Sub


et voilà !
le premier arrivé créera un fichier a.txt sur lequel il garde la main.
les suivants viendront, tenteront de supprimer ce fichier.
s'ils y arrivent, c'est que l'appli 1 a crashé...
s'ils n'y parviennent pas, c'est que l'appli 1 tourne toujours
et lorsque l'appli 1 est fermée, le fichier est finalement supprimé...

très basique, pas forcément très orthodoxe , mais efficace et simple a comprendre

cs_Exploreur · Answer

Salut,

Regarde cela et regarde dans les sources de Renfield aussi :

Private Sub Form_Load()
If App.PrevInstance Then
   MsgBox "Application déjà lancée !"
   End
End If
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Re,

Ah...oui...j'ai oublié de dire, que cette syntaxe est valable que si l'application(exe) et lancée du même répertoire pour tout le monde..

A+
Exploreur

 Linux a un noyau, Windows un pépin

Theos37 · Answer

Merci

C TOP !!!

Theos !

Empêcher l'ouverture du programme si celui-ci est déjà ouvert par un autre utili

4 réponses

Votre réponse