Необходимо узнать о создании окна

[Alar]

Таймер несколько раз в секунду должен запускать процедуру провеки, появилось ли новое окно. Необходимо получить ответ на вопрос - создалось ли какое-нибудь новое окно.

[BOBAH13]

попробуйте вести лог окон... что не есть хорошо. В помощь подойдут функции NextWindow FirstWindow и другие с припиской Window ( вроде не ошибся ).

2й вариант который наиболее будет правильней - перехват апи. Попытатся переписать апи функцию CreateWindow и CreateWindowEx. И ссылаться на свою и после из своей вызывать оригинал... проблемы скорей всего будут с правами на компе + лишний вес с прогой ( если это играет для Вас роль ). Я лично не занимался перехватом но смотрел и проверял примеры ( по опыту, при тесте своего примерчика, мне приходилось перезагружать систему из-за моих ошибок ).

Собственно окон и не так много так что лог будет полегче осуществить ( что собственно я лично и сделал бы ). А проверять флаги окон на то, что они являются родителями а не всякие кнопки и т.п.

Ах да вариант ( конечно незнаю сработает ли ) найти хендл таск бара и в нем искать те окна которые отображаются на нем.

[rpy3uH]

вот пример программы которая ставит перехват на функцию MessageBoxExA (и как следствие на функцию MessageBoxA) В СВОЁМ ПРОЦЕССЕ
если надо будет перехватить создание любых окон, но надо аналогично перехватывать CreateWindowExA, но потом могут быть проблемы.

[Alar]

rpy3uH, выкладываю пример окна с ошибкой.
Впринципе, если возможно, нужно кликнуть по кнопке нет, хотя можно просто блокировать окно.

Для вызова ошибки нужно 2 раза кликнуть на go.
Один раз для загрузки страницы и один раз для вызова ошибки.

[mihali4]

Сообщение от Alar

Таймер несколько раз в секунду должен запускать процедуру провеки, появилось ли новое окно. Необходимо получить ответ на вопрос - создалось ли какое-нибудь новое окно.

Окно дочернее или top-level?
Не смог посмотреть в работе "2 раза кликнуть на go" - у меня нет CL-компонентов.

[Alar]

Сообщение от mihali4

Окно дочернее или top-level?

Окно создается Ишаком - webbrowser. Реакция на ошибку при выполнении ява скрипта.

[mihali4]

Может, я чего-то не понял...
Родитель известен. Простейшее решение - действительно, как и предлагалось - составить первоначальный список окон родителя и проверять по таймеру для начала их количество. Потом - имя класса окна.
Либо, если имя класса уникальное, то енумом проверять наличие такого окна.

[Stilet]

А что если в таймере получать хендл вновьпоявившегося окна (я правильно думаю что оно появляется на переднем плане?) через GetForegroundWindow, далее проверять его класс и (может) заголовок и если это оно то... Ну что там нуна эт уж фантазия пусть старается.

[rpy3uH]

в общем вот та же программа, нажимаем "Поставить перехват", нажимаем два раза GO, сообщение ишака не выводится, выводится только дельфёвое сообщение.

[Alar]

rpy3uH, толку ноль

Универсального решения не получилось, заблокировать окна у меня не получилось.
Сделал несколько частных случаев.

Вот один из них - окно появляется и сразу закрывается кнопкой Escape

var
 WndHandle: HWND;

begin
     WndHandle := FindWindow(nil, 'Microsoft Internet Explorer');
 if WndHandle <> 0 then
 begin
   beep;
   SendMessage(WndHandle, WM_SETFOCUS, 0, 0);
   Keybd_event(VK_ESCAPE, 0, 0, 0);
end;



end;