Finns något sätt att från ett program veta om ett annat program körs?

Känner du till exe filens namn kan du enumerera alla processer och kontrolera filnamnet mot dessa.
Ett lite snabbare min inte lika träffsäker metod är att använda FindWindow() api anropet med föndtrets titel eller klassnamn. Detta kan ju vara svårt då program ofta äöndrar titel och klassnamnet för fönster i VB är samma för alla applikationer.

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim winHwnd As Long
winHwnd = FindWindow(vbNullString, "Kalkylatorn")
If winHwnd <> 0 Then
MsgBox "kalkylatorn körs"
Else
MsgBox "kalkylatorn körs inte"
End If
End Sub

Fungerar alldeles utmärkt! Tack för hjälpen!
Claes