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