FindWindow и Like...

[Nikolka]

Основная суть проблемы: нужно чтобы FindWindow находил окна с примерным названием. Допустим есть окно "Блокнот - Безымянный". А нужно чтобы FindWindow нашёл все окна с названиями скажем "Блокнот*". Пробовал вводит вот так, через звёздочку, как в Like, но не выходит. Что делать? И как этом можно сделать побыстрее...

[Amed]

Пример подобный где-то видел... Сейчас поищу.
А ещё один способ есть - найти ВСЕ открытые окна и отсортировать те, в которых InStr(1,caption,"Блокнот")>0.

[GSerg]

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

<EnumWindows>
  <LIKE pattern="Блокнот*" compareto="WM_GETTEXT" size="WM_GETTEXTLENGTH"/>
</EnumWindows>

[Nikolka]

Всё бы гуд, но этот способ не самый быстрый...
Но если другого ничё не будет, придётся довольствоваться.
Кстати, как это сделать - какая функция. Имеешь ввиду
FindWindow(vbNullString, "")?

[Nikolka]

эээ. Это код для VB6? Я знаю что я полный лам, но... нельзя ли описать...

[Amed]

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

<EnumWindows>
  <LIKE pattern="Блокнот*" compareto="WM_GETTEXT" size="WM_GETTEXTLENGTH"/>
</EnumWindows>

Вот пример для получения всех окон (hwnd+заголовок):

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

'Add this code to a form
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Set the form's graphics mode to persistent
    Me.AutoRedraw = True
    'call the Enumwindows-function
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub
'Add this code to a module
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String, Ret As Long
    Ret = GetWindowTextLength(hwnd)
    sSave = Space(Ret)
    GetWindowText hwnd, sSave, Ret + 1
    Form1.Print Str$(hwnd) + " " + sSave
    'continue enumeration
    EnumWindowsProc = True
End Function

Разберись с ним, ничего сложного быть не должно.
Потом все полученные заголовки пропусти сквозь Like.

[Nikolka]

Пасиба. А насколько это медленнее FindWindow?

[Amed]

Через FindWindow такое не провернуть. К сожалению. Только вот так.

[uhm]

На всякий случай, хоть про это и не спрашивалось - FindWindow может искать не только по заголовку окна, но и по классу, так что можно определить класс и искать по нему, не обращая внимания на заголовок.

[Nikolka]

Всем пасиба. Функция работает быстро и замечательно. Она уже встроена в программу и хорошо справляется с целью.