Here is little VBA code that could be used. The string code inside the callback EnumWindows_CallBack() looks for a match of window title which starts with the string "Origin".
'---------------------------------------------------------------
Declarations
Private Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Dim bFound As Boolean
Public Sub Main()
bFound = False
bb = EnumWindows(AddressOf EnumWindows_CallBack, 0)
If bFound Then
MsgBox "Origin found"
Else
MsgBox "Origin not found"
End If
End Sub
' This function is called from the EnumWindows API
Private Function EnumWindows_CallBack(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim wndName As String
Length = GetWindowTextLength(hwnd)
wndName = Space$(Length + 1)
Length = GetWindowText(hwnd, wndName, Length + 1)
If InStr(wndName, "Origin") = 1 Then
EnumWindows_CallBack = 0
bFound = True
Exit Function
End If
EnumWindows_CallBack = 1
End Function
'---------------------------------------------------------------
