Comment tracker proprement un exécutable ? [Résolu]

Signaler
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
-
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
-
Salut à tous,

Auriez-vous un code propre de 5/10 lignes de codes qui me permettrait
de savoir si un programme est lancé ?.

Exemple d'une fonction désiré:
boolRt = FileLaunched("calc.exe")

Merci d'avance !!!

1 réponse

Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
4
Public Function FileLauncher(sFileName As String) As Boolean
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim rt As Long, tmp As String

FileLauncher = False

hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
If hSnapShot = -1 Then Exit Function

uProcess.lSize = Len(uProcess)
rt = ProcessFirst(hSnapShot, uProcess)
If rt = 1 Then
Do
If uProcess.sExeFile <> "" Then
tmp = UCase(Left(uProcess.sExeFile, InStr(1, uProcess.sExeFile, Chr(0)) - 1))
If UCase(sFileName) = tmp Then
FileLauncher = True
Exit Do
End If
End If
Loop While ProcessNext(hSnapShot, uProcess)
End If
Call CloseHandle(hSnapShot)
End Function