Delphi как найти все дочерние окна

———————

а что считать дочерними окнами?

вот так тебе пойдёт:

?

———————

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Только x77 ненароком забыл написать stdcall у EnumChildProc…

———————

С уважением, г-н Посол.

———————

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

Привет всем!
Как найти Handle дочерное окно зная его имя(‘stop , please stop , don’t leave’); а класс нет ,
класс и имя родительское окна неизвестны!
Заранее спасибо!

Добавлено через 7 часов 47 минут
nu , kto pomojet?

spydark91

86 / 86 / 13

Регистрация: 03.03.2011

Сообщений: 1,873

1
2
3
4
5
6
7

HWND FindWindowEx
(
HWND hwndParent,        // дескриптор родительского окна
HWND hwndChildAfter,    // дескриптор дочернего окна
LPCTSTR lpszClass,      // указатель имени класса
LPCTSTR lpszWindow      // указатель имени окна
);

http://vsokovikov.narod.ru/New… ndowex.htm
но если эта игра браузерка,то в браузере вроде как окон нет,только те которые содержат странгицы(вкладки)

1904 / 1015 / 123

Регистрация: 08.12.2009

Сообщений: 2,792

Записей в блоге: 2

FindWindowEx попробуй, хотя я точно не помню

Добавлено через 24 секунды

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

5694 / 2285 / 466

Регистрация: 20.11.2009

Сообщений: 7,692

Записей в блоге: 1

это вообще API’шная функция, и нет такого определения в этом, дельфи это или с++ или вообще бесик, это функции видовса, и они работают в любом языке

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

deathNC

1904 / 1015 / 123

Регистрация: 08.12.2009

Сообщений: 2,792

Записей в блоге: 2

MultiVan, так ты Handle(дескриптор) родительского окна нашёл? Или ещё его найти надо?
Если тебе ещё и родительское окно по классу найти надо, то:

1
2
3
4
5

var
  Handle: HWND;
begin
  Handle := FindWindow('MyClass', nil);
end;

Ну, тут MyClass меняй на свой класс и всё…
Ну, а дальше юзай FindWindowEx
Вроде так надо…

MultiVan

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

1
2
3
4
5

var
  Handle: HWND;
begin
  Handle := FindWindow('MyClass', nil);
end;

мне ну нужно менять классы , мне нужно найти и родительское чтобы найти дочернее!
Проблема в том что окна с пустым именем много
Но только одна имеет дочернее окна (‘Stop , please stop’);

Добавлено через 32 секунды
Как найти все окна без имени а потом во всех искать дочерную?

deathNC

1904 / 1015 / 123

Регистрация: 08.12.2009

Сообщений: 2,792

Записей в блоге: 2

упс… пардон

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

function EnumWindows_Callback(hWindow: HWnd; Param: LongInt): Boolean; stdcall;
var
  _can_continue: Boolean;
begin
  // hWindow - текущее окно в перечислении всех окон
  {
   тут ты проверяешь, подходит ли тебе окно или нет.
   Если да, то _can_continue нужно приравнять false
   иначе _can_continue надо приравнять к True;
  }
  // Возвращаем true чтобы продолжать перечисление:
  _can_continue := true;
  result := _can_continue;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // перечисление всех окон первого урвня:
  EnumWindows(@EnumWindows_Callback, 0);
end;

Функция EnumWindows перечисляет все окна первого уровня. В параметрах ей нужно передать функцию вида, обрабатывающую некоторое очередное найденное окно, и передать любое число (на твоё усмотрение).
Функцию, которая передаётся в параметре, определяет, продлится ли поиск или нет. И там ты это как раз и будешь решать — подходит ли тебе hWindow или нет…

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

1904 / 1015 / 123

Регистрация: 08.12.2009

Сообщений: 2,792

Записей в блоге: 2

Так я же дал пример выше…

Добавлено через 27 секунд

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

хорошо!

Добавлено через 2 часа 43 минуты
………

1904 / 1015 / 123

Регистрация: 08.12.2009

Сообщений: 2,792

Записей в блоге: 2

Сейчас…

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

deathNC

1904 / 1015 / 123

Регистрация: 08.12.2009

Сообщений: 2,792

Записей в блоге: 2

эх… вот есть кусок кода на С, но на С я ещё ни одной проги не написал, так что трудно будет переводить в Delphi. Если смогу, то переведу и выложу тут…

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73

#include <Windows.h>
#include <stdio.h>
 
#define MAX_BUFF_SIZE 256
#define BUFF_SIZE MAX_BUFF_SIZE * sizeof(WCHAR)
 
BOOL CALLBACK
EnumWins(HWND hWnd, LPARAM lParam);
 
BOOL CALLBACK
EnumChildWins(HWND hWnd, LPARAM lParam);
 
BOOL WINAPI
IsSearchingWindow(HWND hWnd);
 
// Найденный хэндл
HWND fndWindow;
PWCHAR text;
 
int main ()
{
    text = L"c:WindowsMicrosoft.NETFrameworkv2.0.50727>";
    EnumWindows(EnumWins, NULL);
 
    if (fndWindow != NULL)
        SendMessageW(fndWindow, WM_SETTEXT, NULL, (LPARAM)text);
 
    system("pause");
    return 0;
}
 
BOOL CALLBACK
EnumWins(HWND hWnd, LPARAM lParam)
{
    if (IsSearchingWindow(hWnd)) {
        fndWindow = hWnd;
        return FALSE;
    }
 
    EnumChildWindows(hWnd, EnumChildWins, NULL);
    return fndWindow == NULL;
}
 
BOOL CALLBACK
EnumChildWins(HWND hWnd, LPARAM lParam)
{
    if (IsSearchingWindow(hWnd))
        fndWindow = hWnd;
 
    return fndWindow == NULL;
}
 
BOOL WINAPI
IsSearchingWindow(HWND hWnd)
{
    BOOL retVal = FALSE;
    PWCHAR buffer = NULL;
    LONG capLength = SendMessageW(hWnd, WM_GETTEXTLENGTH, NULL, NULL) + 1;
 
    if (capLength > MAX_BUFF_SIZE)
        return;
 
    buffer = (PWCHAR)malloc(capLength * sizeof(WCHAR));
    capLength = SendMessageW(hWnd, WM_GETTEXT, capLength, (LPARAM)buffer);
 
    if (capLength != 0) {
        retVal = wcscmp(buffer, text) == 0;
    }
 
    free(buffer);
 
    return retVal;
}

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

deathNC

1904 / 1015 / 123

Регистрация: 08.12.2009

Сообщений: 2,792

Записей в блоге: 2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
 
  public
    found_window: HWnd;
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function _GetWindowText(hWindow: HWnd): String;
var
  buf: Array[0..127] of Char;
  _size: Integer;
begin
  Result := '';
  _size := GetWindowText(hWindow, buf, SizeOf(buf));
  If _size = 0 then
    exit;
  GetWindowText(hWindow, buf, _size + 1);
  Result := StrPas(buf);
end;
 
{ коллбэк-функция проверки очередного найденного окна }
function EnumProc(hWindow: HWnd; Param: LongInt): Boolean; stdcall;
var
  buff: Array[0..255] of Char;
  s: String;
begin
  result := true;
  If Boolean(GetClassName(hWindow, buff, 256)) then
    begin
      s := AnsiLowerCase(StrPas(buff));
      If pos(AnsiLowerCase('ApplicationForm'), s) > 0 then // вот тут ищем кусок класса
        begin
          Form1.found_window := hWindow;
          Result := False;
        end;
    end;
end;
 
{ Обработчик клика по кнопке Button1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  found_window := Invalid_Handle_Value;
  // перечисление всех окон первого урвня:
  EnumWindows(@EnumProc, 0);
  If found_window <> Invalid_Handle_Value then
    ShowMessage(_GetWindowText(found_window));
end;
 
end.

Этот код ищет по куску класса

59 / 59 / 4

Регистрация: 13.08.2011

Сообщений: 165

Из основной программы запускаем эксплорер (соответственно, иммем его хэндл),
и подсовываем ему на вход нужный html-файл.

Юзер в браузере нажал шифт при клике на ссылку -> породился еще один эксплорер со своим окном….
Допустим, наплодили мы кучу новых окон от родительского браузера.
Теперь начинаем их закрывать…

Вопрос:
как главная программа _без_использования_хуков может узнать,
что _все_ дочерние окна/процессы закрыты, в том числе и окно «главного» браузера?
После закрытия всех порожденных окон наша программа должна завершиться сама.

Думаю, надо копать в сторону EnumChildWindows и EnumChildProc …

Можете помочь кусочком рабочего кода?

Через эти функции, по-моему, муднова-то. Проще в цикле проверять активное окно(GetForegroundWindow), далее получать его текст (GetWindowText(h:THandle)), и сравнивать, не эксплорер ли он.
По-моему, все окна эксплорера-это отдельные процессы, а не дочерние окна главного. Поэтому EnumChildWindows(или как там она) не подойдёт. Но я могу и ошибаться.
А сли я ошибаюсь, то так:
сначала определяешь хандел родительского эксплорера(это, надеюсь, ты сможешь), например он будет h.
А далее так:

Function EnumChildProc(Handle:HWND; Param:LongInt):Boolean; stdcall;
Begin
{сюда через переменную Handle будут передаваться все дочерние окна, а там уже проверяй заголовок окна, если он есть(у кнопок его естественно нет, а они сюда тоже передадуться)}
Result:=True;
End;

Procedure TForm1.Button1Click(Sender:TObject);
Begin
EnumChildWindows(h,@EnumChildProc,0);
End;

Но я не уверен, что это именно то, что тебе надо. Так что прошу, если чё, меня строго не судить

Сообщение отредактировано: Antipich — 13.01.03, 16:06

Вообщем решение есть, но мне его пока не написать по той причине что весь день на работе, а там даже компа нет пока, чтобы реализовать. Но если не терпится, можешь сам попробовать:

1.Запускаем сервер и браузер (ShellExecute).
2.Подождём пока загрузится страница в браузер — WaitForInputIdle()
3.Читаем дискриптор окна браузера — GetForeGroundWindow и определяем его класс, ну типа TOpera :-))
4.Запускаем нить — TThread, которая будет сканировать все верхние окна — EnumWindows(), на предмет того, есть ли окно с классом, который мы нашли на шаге 3.
5.Если после перебора всех окон, такого окна не нашлось, значит все экземпляры таких окон (то бишь все окна браузера) закрыты.Закрываем сервер.
6.Разрушаем поток.