Discussion :

[megamario]

Bonjour,

Je recherche un moyen de savoir si un exe n'est pas en cours d’exécution.

J'ai trouver sa sur dans les tutoriels Visual Basic 6 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function IsFileOpen(ByVal strFic As String) As Boolean
    Dim fic As Integer
    On Error Resume Next
 
    fic = FreeFile()
    Open strFic For Input Access Read Lock Read Write As fic
 
    If err.Number = 0 Then
        IsFileOpen = False
        Close fic
    Else
        IsFileOpen = True
    End If
End Function

Cela fonctionne parfaitement sous Win7 mais pas sous Win XP.

Y a t'il une autre solution, merci

[pc75]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    If App.PrevInstance = True Then
        MsgBox "Application déjà active.", vbCritical, "MonAppli."
        End
    End If

[megamario]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    If App.PrevInstance = True Then
        MsgBox "Application déjà active.", vbCritical, "MonAppli."
        End
    End If

Bonjour Merci d'avoir répondu, mais soit je vois pas comment fonctionne votre solution, soit je me suis mal exprimer.

Car ce que je souhaite c'est vérifier qu'un autre exe n'est pas en cours d'utilisation.
En fait mon but c'est:

Mon application utilise une bibliothèque et un exe qui nous sert de passerelle de communication. Seulement nous avons quelques souci avec les différentes version de Windows et nous avons plusieurs version qui fonctionne parfois nickel avec un Windows mais pas l'autre.

Actuellement je fait une installation avec installshield et j’installe la version qui est devrais fonctionner avec le Windows sur laquelle on installe le logiciel, mais parfois cela marche quand même pas.

Mon appli lancer je ne peut donc pas remplacer l'Exe de comm puisqu'elle l'utilise. Donc a partir des option de mon appli je lance une autre toute petite appli qui attend que mon logiciel soit fermer pour remplacer mon exe de comm. Pour se faire j'ai un timer qui regarde si l'exe était toujours en cours d'execution.

Cela marche bien avec Seven mais pas avec XP. J'ai regardé dans les processus mais mon exe n'y est pourtant plus.


Il est clair que le top serait déjà de recrée un logiciel de communication, mais c'est prévu mais vu qu'il nous fait énormément de chose c'est du temps a y passer.

[pc75]

Re,

Si j'ai bien compris, tu veux faire une installation, mais il faut pas qu'une certaine appli soit en cours d'exécution ?

Tu peux alors regarder dans la liste des processus qui tournent sur la machine :

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
 
Function ProcessusActif(NomProcess As String) As Boolean
    Dim svc As Object
    Dim squery As String
    Dim oproc
    Dim Actif As Boolean
 
    Set svc = GetObject("winmgmts:root\cimv2")
    squery = "select * from win32_process"
 
    Actif = False
    For Each oproc In svc.execquery(squery)
        If oproc.Name = NomProcess Then
           Actif = True
           Exit For
        End If
    Next
    Set svc = Nothing
 
    ProcessusActif = Actif
End Function

[ThierryAIM]

je pense que pc75 a donné le début de la réponse

avec http://vb.developpez.com/faq/?page=Systeme#listprocess
et http://vb.developpez.com/faq/?page=Systeme#killprocess
tu devrais pouvoir faire ce que tu souhaites

Joyeux Noël

[megamario]

Re,

Si j'ai bien compris, tu veux faire une installation, mais il faut pas qu'une certaine appli soit en cours d'exécution ?

Tu peux alors regarder dans la liste des processus qui tournent sur la machine :

C'est pas tout à fait sa car c'est l'inverse, je veux remplacer un fichier mais pour qu'il puisse être remplacer il ne faut pas qu'il soit actif, mais ton code devrait remplir cette fonction parfaitement si cela marche avec tout les Windows c'est parfait.

j'essaie sa, merci