Discussion :

[Gigli]

Bonjour,


J'aimerais pouvoir checker si un processus tourne ou pas.


J'ai testé cette fonction qui à l'air de marcher plutôt bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Public Function IsProcessOpen(ByVal name As String) As Boolean
 
        For Each clsProcess As Process In Process.GetProcesses()
 
            If clsProcess.ProcessName.Contains(name) Then
 
                Return True
            End If
        Next
 
        Return False
    End Function

mais si et seulement si, le processus qui tourne correspond à la casse (donc, écriture exact)

Ainsi, si le bloc note est ouvert est que je fais :

Code :

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

IsProcessOpen(notepad)

Il me retourne True.


Si je fais un...

Code :

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

IsProcessOpen(NotEpaD)

...et que le bloc note est bien ouvert, il me retourne False.


Ce n'est pas génant dans la majeur partie des cas, mais je dois vérifier si une application tourne, et elle aurait pu être renommé pour X ou Y raison.



Peut on s'affranchir de la façon dont est écrit le nom du processus tournant ?



Merci

[Pol63]

non
si on donne un nom à processus/exe c'est pour pouvoir le différencier des autres justement

[Gigli]

Merci Pol pour ta réponse.

J'ai contourné cependant la solution en listant les processus, les mettant dans une liste tous en minuscule, et en évitant les doublons.

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
22
 
    Public Function IsProcessOpen(ByVal name As String) As Boolean
 
        Dim listprocess As New System.Collections.SortedList
 
 
        For Each clsProcess As Process In Process.GetProcesses()
 
            If Not listprocess.ContainsValue(clsProcess.ProcessName) Then
 
                listprocess.Add(LCase(clsProcess.ProcessName), LCase(clsProcess.ProcessName))
 
            End If
 
            If listprocess.ContainsValue(name) Then
                Return True
            End If
        Next
 
 
        Return False
    End Function

Ce n'est peut être pas très académique mais ça répond à ce que je cherchais