Задача: перебираем окна через EnumWindows, ищем окно с заголовком "MyProgaTitle",
как нашли сохраняем его hwndEnumTarget и прекращаем перебор окон.
Успешное решение на VB6 (точно работает):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Function EnumWindowsProc(ByVal app_hwnd As Long, _
ByVal lParam As Long) As Boolean
' Return False to stop the enumeration.
Dim buf As String * 256
Dim title As String
Dim length As Long
' Get the window's title.
length = GetWindowText(app_hwnd, buf, Len(buf))
title = Left$(buf, length)
If lParam = 1 Then 'конкретное окно "MyProgaTitle"
If title = "MyProgaTitle" Then
hwndEnumTarget = app_hwnd
EnumWindowsProc = False ' Save the hwnd and end the enumeration
Exit Function
End If
End If
EnumWindowsProc = True ' Continue the enumeration (default)
End Function
Предварительный код C++:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)
{
// Return FALSE to stop the enumeration.
char title[256];
GetWindowText(hwnd,title,sizeof(title));
if (lParam == 1) {
if (title == "MyProgaTitle"){
hwndEnumTarget = hwnd;
return FALSE;
}
}
return TRUE;
}
Как правильно понять что title окна равен "MyProgaTitle"?
P.S.
Я бы мог использовать
1.
HWND hwndTarget = FindWindow(NULL,"MyProgaTitle");
но опыт показывает что это ненадежно.
"MyProgaTitle" может быть несколько,
приведенный код неполный,
там еще делаю проверку на предмет хитро-обозванного child
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
If lParam = 1 Then 'конкретное окно WINDOWTITLE_SERVER
If title = WINDOWTITLE_SERVER Then
hwndTemp = FindWindowEx(app_hwnd, 0&, vbNullString, WINDOWTITLE_SERVER_CHILD)
If hwndTemp <> 0 Then
hwndEnumTarget = app_hwnd
EnumWindowsProc = False ' Save the hwnd and end the enumeration
Exit Function
End If
End If
End If
Но до этого пока не дошел.
