В поисках классов

[claymen]

Как нужно искать процесс по частичному названию заголовка окна.

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Sub Form_Load()
    Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
    Ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match")
    WinWnd = FindWindow(vbNullString, Ret)
    lpClassName = Space(256)
    RetVal = GetClassName(WinWnd, lpClassName, 256)
    WinClass=Left$(lpClassName, RetVal)
End Sub


Из этого кода я могу определить заголовок окна процесса и его класс, но это срабатывает только если я знаю полное (точное) название окна, иначе WinWnd и WinClass ничего не находят.
Подскажите мне plz. Можно ли найти процесс, зная только его Class?
И, можно ли найти процесс, зная только несколько слов из имени окна процесса?

[dr.MIG]

FindWindow как раз и может искать окно только по его классу (первый параметр), только по его заголовку (второй параметр), либо по тому и другому сразу. Что касается поиска по части заголовка окна, то тут, имхо, выход один -- перебирать все окна, получать их заголовки и проверять встречается ли в них искомая комбинация слов.