Comment savoir si un exe est en train de tourner ?

'   =====
'   Form1
'   =====
'
Option Explicit 
'
'
Private Sub Form_Load() 
    Me.AutoRedraw = True 
    Call EnumWindows(AddressOf EnumWindowsProc, ByVal 0&) 
End Sub 





'   =======
'   Module1
'   =======
'
Option Explicit 
'
Declare Function EnumWindows Lib "user32" _ 
                        (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean 

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ 
                        (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 

Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" _ 
                        (ByVal hwnd As Long) As Long 
'
Private Const cMON_EXE As String = "foxmail"  'à changer....
'
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean 
    Dim sSave As String, lRet As Long 
    lRet = GetWindowTextLength(hwnd) 
    sSave = Space$(lRet) 
    Call GetWindowText(hwnd, sSave, lRet + 1) 
    If LCase$(sSave) Like "*" & cMON_EXE & "*" Then Form1.Print sSave & Space$(20) & "hWnd = " & CStr(hwnd) 

    'continue enumeration
    EnumWindowsProc = True 
End Function 
 

Coloration syntaxique automatique [AFCK]
       

PCPT   [AFCK]