Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNext = 2
Public Const GW_HWNDPREV = 3
Public Const GW_OWNER = 4
Public Const GW_CHILD = 5

Public hwnd As String
Public dummy As String
Public strCaption As String
Public hw As String

Private Sub Command1_Click()
    Модуль1.hwnd = GetDesktopWindow()
   Модуль1.hwnd = GetWindow(Модуль1.hwnd, GW_CHILD)
    Do
     Модуль1.dummy = GetWindowTextLength(Модуль1.hwnd)
       If Модуль1.dummy <> 0 Then
          Модуль1.strCaption = String(Модуль1.dummy + 1, " ")
         Модуль1.dummy = GetWindowText(Модуль1.hwnd, Модуль1.strCaption,Модуль1.dummy + 1)
          If Модуль1.strCaption = "Калькулятор" Then
          MsgBox "Запущен калькулятор"
          End If
           Form1.Text1.Text = Form1.Text1.Text + Модуль1.hwnd + "-" + Модуль1.strCaption
       End If
       Модуль1.hwnd = GetWindow(Модуль1.hwnd, GW_HWNDNext)
    Loop While Модуль1.hwnd <> 0
    MsgBox Form1.Text1.Text
End Sub