Спонтанные зависания при EnumWindows, как избавиться, и что использовать Send/PostMessage

[Человек_Борща]

Доброго времени суток!

Имеется код:

function EnumProc(aHWND: HWND; alParam: LPARAM): LongBool; stdcall;
var
  P: PWindowSEarchInfo;
  sClass, sTitle: string;
begin
  P := PWindowSearchInfo(alParam);
  if IsWindowVisible(aHWND) and IsWindowEnabled(aHWND) and not IsIconic(aHWND) and not P.swFound then
  begin
    //Класс
    if not (p.swClass = EmptyStr) then
    begin
      sClass := ReturnControlClass(aHWND);
      if Pos(LowerCase(p.swClass), LowerCase(sClass)) > 0 then
      begin
        p.WindowInfo.wClass := sClass;
        p.WindowInfo.wTitle := ReturnControlText(aHWND);
        p.WindowInfo.wHandle := aHWND;
      end
      else
        Exit;
    end;

    //Заголовок
    if not (p.swTitle = EmptyStr) then
    begin
      sTitle := ReturnControlText(aHWND);
      if Pos(LowerCase(p.swTitle), LowerCase(sTitle)) > 0 then
      begin
        p.WindowInfo.wClass := ReturnControlClass(aHWND);
        p.WindowInfo.wTitle := sTitle;
        p.WindowInfo.wHandle := aHWND;
      end
      else
        Exit;
    end;

    P.swFound := True;

    //Поиск внутри окна компонентов
    if not (p.swText = EmptyStr) or not (p.swButtonClass = EmptyStr) or not
      (p.swButtonText = EmptyStr) then
    begin
      EnumChildWindows(aHWND, @EnumChildProc, Integer(P))
    end;
  end;
end;

Работает на ура.

Единственное - это виснет на SEndMessage'ах, что совсем не радует.

Думаю использовать PostMessage, что думаете вы?

на Post система может и не ответить, а ответ нужен..

Как быть?

[Пепел Феникса]

если нужен ответ то только SendMessage.
хотя есть аналоги, например SendMessageCallback или SendMessageTimeout.

[Человек_Борща]

Дело не в том, нужен или не нужен. Ответ-то мне нужен всеравно.
Энумирация вешает программу если сообщение послано к мертвому окну.

А вот за SendMessageTimeout огромная благодарность.

[Rock-n-Rolla]

вся проблема в инзначально неправильном подходе. во время перебора окон в колбэке вообще не рекомендуется посылать какие-либо сообщения.

было бы намного правильнее вызвать EnumWindows, сформировать список окон и потом с ним уже работать как душа пожелает.

[Человек_Борща]

Rock-n-Rolla,

колбэке вообще не рекомендуется посылать какие-либо сообщения.

Можно каких-нибудь ссылочек на оф. источник информации?

было бы намного правильнее вызвать EnumWindows, сформировать список окон и потом с ним уже работать как душа пожелает.

У меня все работает так:
-EnumWindows
--EnumChildWindows

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


Далее...
Пепел Феникса, пожалуйста, можно обьяснить, какие флаги функции SendMessageTimeout, мне использовать в моей ситуации?

Нагуглил как оф. источник, так и ссылку на русском

Не не втфыкаю, что к чему...

[Пепел Феникса]

пожалуй SMTO_BLOCK, чтоб ждать ответа прямо сейчас.
и наверно SMTO_ERRORONEXIT.

еще SMTO_ABORTIFHUNG может быть полезен.

Нагуглил как оф. источник

а я ссылку зачем давал?

[Человек_Борща]

Взял в оборот SMTO_BLOCK

Фопрос решен.