Dialog #32770 Зависание

[JohnK]

Есть необходимость в управлении сторонней программой.
Главное окно программы - диалог (#32770), запуск из exe не составляет труда. На диалоге есть клавиша, нажать ее тоже не проблема.
По нажатии клавишы выскакивает еще один диалог. Проблема в том что при выполненни кода:

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

ret = FindWindow("#32770", "Ввод данных")


Моя программа подвисает до тех пор пока я закрою этот диалог. В чем здесь кроется тайна?
Пробывал и так:

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

ret = FindWindowEx(CTL.main, 0, pClass, pName)


CTL.main - это хендл родительского диалога, таже самая проблема.
Причем если нажать клавишу не программно, а как пологается. Дочерний диалог находится и подвисаний нет.

Нажатие клавишы делаю так:

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

SetActiveWindow CTL.main
Call SendMessage(CTL.Button_add, BM_CLICK, 0&, 0&)


[JohnK]

Нажать можно и так, но боюсь что это приведет к нестабильной работе из-за потери фокуса.

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

SetForegroundWindow ret
SendKeys (Chr(13))


И все же, почему при посылке сообщения кнопке диалог выскакивает, но при поиске диалога по заголовку (для контроля открытия нужного окна) мое приложение подвисает?

[arvitaly]

Главное окно программы - диалог (#32770), запуск из exe не составляет труда.

Как именно?

[JohnK]

Вопрос не ясный... Но попробую ответить.

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

n = ShellExecute(0, vbNullString, sspPath, vbNullString, Left$(CurDir$, 1), 1)


Себя в качестве родителя не указываю...

[arvitaly]

Себя в качестве родителя не указываю...

Ну про это я и спрашивал, тогда не знаю

[JohnK]

В том то и дело, что моя программа никоем образом не должна быть зависима от этого диалога. Причем в процедуре оставил только одну функцию FindWindow для чистоты эксперимента.
Есть мысль управлять через

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

SendDlgItemMessage

Соответственно доставая ID элементов функцией

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

GetDlgCtrlID

Попробывать смогу только завтра. А сейчас жду ваших идей.

[JohnK]

Таже самая ерунда!!!!

Хакер, я знаю, ты здесь!
Ты можешь объяснить что происходит?

[Денис]

А если попробовать PostMessage вместо SendMessage?

[JohnK]

Не пробывал, я решил задачу так:

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

        ret_tmp = FindWindowEx(ret, 0&, "Button", "OK")
        SetActiveWindow ret_tmp
        PostMessage ret_tmp, WM_LBUTTONDOWN, MK_LBUTTON, 0
        PostMessage ret_tmp, WM_LBUTTONUP, MK_LBUTTON, 0
        WaitFor (200)


Но все же вопрос остается открытым.

[arvitaly]

Ты же говорил у тя здесь подвисает

ret = FindWindow("#32770", "Ввод данных")

Естественно SendMessage ждет конца выполнения задания, в данном случае так как по нажатию открывается диалоговое окно - закрытие диалогового окна

[JohnK]

Просто я думал, что подвисает при поиске окна. Оказывается подвисает из-за первой команды нажатия кнопки.
Получается что PostMessage не ждет ответа. Из-за этого различия я и промучился... Раньше на это не обращал внимания. И главное что меня ввело в заблуждение, так это то, что при нажатии на кнопку, которая закрывает диалог все работает ок. А вот если нажать на кнопку, которая открывает новое окно, такое происходит. Век живи, век учись.

На данный момент нажатие делаю так:

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

Call SetActiveWindow(ret)
Call PostMessage(ret, WM_COMMAND, CLng(ButtonOK + &HF5 * 65536), 0&)


Спасибо всем за помощь.