تشخیص باز بودن برنامه

[www.pc3enter.tk]

سلام دوستان من یک سوال داشتم آن هم اینکه چطور می توانم از باز بودن یک برنامه مطلع شوم
به طور مثال

اگر نود‍پد را باز کرد ارور بده

[M.T.P]

لیست پروسه ها رو جستجو کنید:

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



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

blnRet = False
strObject = "winmgmts://"

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

IsProcessRunning = blnRet
End Function

[www.pc3enter.tk]

چطوری باید اسم برنامه را به برنامه ارسال کنم

[محسن واژدی]

چطوری باید اسم برنامه را به برنامه ارسال کنم
سلام
دستور زیر را که از روی کد جناب M.T.P است بررسی کنید:

Private Sub Command1_Click()
MsgBox "Notepade running status: " & IsProcessRunning("notepad.exe")
End Sub



موفق باشید