Détection qu'un exe n'est pas en cours d’exécution

Version imprimable

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:

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

Bonjour,

Code:

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

23/12/2011, 13h13
megamario
Citation:
Envoyé par pc75

Bonjour,

Code:

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.

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:

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

23/12/2011, 13h47
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 ;)
23/12/2011, 13h52
megamario

Citation:

Envoyé par 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 :

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