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

[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 برای تشخیص