تشخيص در حال اجرا بودن يك برنامه خاص

[ebrahimv]

سلام
چطوري تشخيص بديم كه يه برنامه الان در حال اجرا هست يا نه؟

[M.T.P]

عنوان فایل اجرایی رو به تابع زیر پاس بدید.

Function IsProcessRunning(ByVal sProcessName As String) As Boolean
    On Error Resume Next
    Dim blnReturn As Boolean
    Dim obProcess As Object
    Dim strObject As String

    blnReturn = False
    strObject = "winmgmts://"

    For Each obProcess In GetObject(strObject).InstancesOf("win32_process")
        If UCase(obProcess.name) = UCase(sProcessName) Then
            blnReturn = True
            Exit For
        End If
    Next

    obProcess = Nothing
    IsProcessRunning = blnReturn
End Function

مثال:

MsgBox IsProcessRunning("explorer.exe")

[moharam1370]

سلام

یه نوع ocx برای تشخیص