Check if a Task is Running by Searching on Window Title or Partial Window Title

Category:

System/API

Type:

Snippets

Difficulty:

Intermediate

Author:

Ronald Zwart

Version Compatibility:

More information:

Use argument 'ExactMatch' to search for part of the title or the complete title.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Private Const GW_HWNDNEXT = 2 '\2 = next window handle 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 Private Declare Function GetWindow Lib "user32" _ Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) _ As Long Private Declare Function GetActiveWindow Lib "user32" _ Alias "GetActiveWindow" () As Long

Code:

'\\ FUNCTIE: TASKEXISTS
'\\ This function checks if a taks exists by searching for (
'\\part of) the window title.
'\\ strCheckTask = (part of) window-title
'\\ Ronald Zwart  Datum: 27-06-00

Public Function TaskExists(ByVal strCheckTask As String, _
   ByVal ExactMatch As Boolean) As Boolean

Dim CurrWnd As Long, Length As Long
Dim TaskName As String

TaskExists = False
CurrWnd = GetActiveWindow()
Do While (CurrWnd <> 0)
  Length = GetWindowTextLength(CurrWnd)
  TaskName = Space$(Length + 1)
  Length = GetWindowText(CurrWnd, TaskName, Length + 1)
  TaskName = Left$(TaskName, Len(TaskName) - 1)
  If (Length > 0) Then
    If ExactMatch = True Then  'task gelijk aan string
      If (TaskName = strCheckTask) Then
        TaskExists = True
        Exit Do
      End If
    Else  'task komt voor in string
      If InStr(TaskName, strCheckTask) Then
        TaskExists = True
        Exit Do
      End If
    End If
  End If
  CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
  DoEvents
Loop
End Function