پروسه در حال اجراست؟

سلام.

چه جوری میشه فهمید که مثلا پروسه ای به اسم SAB.exe در حال اجراست یا نه؟

خیلی ممنون.

سلام.
لیست پروسه ها رو بگیر و مقایسه کن.

کد:

---

'Process
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * 260
End Type
Private Const TH32CS_SNAPALL = &HF
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
'Process

Private Sub GetProcessesList()
Dim strProcess As String
Dim hSnapshot As Long, lngNextProcess As Long
Dim ProcessInfo As PROCESSENTRY32
    hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0)
    ProcessInfo.dwSize = Len(ProcessInfo)
    lngNextProcess = Process32First(hSnapshot, ProcessInfo)
    While lngNextProcess <> 0
        strProcess = Left(ProcessInfo.szExeFile, InStr(ProcessInfo.szExeFile, vbNullChar) - 1)
        If UCase(strProcess) = UCase(Text1.Text) Then
            Text2.Text = "Find This Process"
            Exit Sub
        End If
        lngNextProcess = Process32Next(hSnapshot, ProcessInfo)
    Wend
    CloseHandle hSnapshot
    Text2.Text = "Cant Find This Process"
End Sub

---