Как завершить процесс на основе строки заголовка окна?

Question

Может отображаться следующий код vb6 (строка заголовка (активное окно)):

Есть ли способ найти имя exe-файла активного окна , чтобы завершить процессэто?

Пожалуйста, посмотрите на последнюю строку (пример) в следующем коде:

Private Declare Function GetForegroundWindow Lib "user32" () 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 Sub Timer1_Timer()
    Dim ActiveWindowHandle As Long

    ActiveWindowHandle = GetForegroundWindow()

    Dim Title As String * 255

    GetWindowText ActiveWindowHandle, Title, Len(Title)

    Me.Caption = Trim(Title)

    'example: if Me.Caption = "flower" then (end its process)

End Sub