Comment tracker proprement un exécutable ?Résolu

Question

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 !!!

Duke49 · Accepted Answer

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

Comment tracker proprement un exécutable ?

1 réponse

Votre réponse

Discussions similaires