Public Function MeIsRun(TitleFind As String) As Long
Dim WinTitle As String *  256 , cnt  As Long, hwnd As Long
Const GW_HWNDNEXT =  2    ' следующее окно
Const GW_CHILD = 5      ' Child-окно для окна, указанного в hwnd

' поиск окна начать с Рабочего стола
    hwnd = GetDesktopWindow&
' все остальные окна для него - Child
    hwnd = GetWindow(hwnd, GW_CHILD)
    Do While hwnd <>  0 
        cnt = GetWindowText(hwnd, WinTitle,  255 )
        If InStr( 1 , WinTitle, TitleFind) =  1  Then
            MeIsRun = hwnd
            Exit Do
        End If
        hwnd = GetWindow(hwnd, GW_HWNDNEXT) ' следующее окно
    Loop
End Function

' определить hwnd Рабочего стола
Declare Function GetDesktopWindow& Lib "user32" ()
' узнать hwnd окна относительно указанного hwnd
Declare Function GetWindow& Lib  "user32"  (ByVal hwnd As Long, _
   ByVal wCmd As Long)
' прочитать заголовок окна
Declare Function GetWindowText& Lib  "user32"  Alias  "GetWindowTextA"  _
(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long)