Доброго дня! Имеется код программы для работы с чужими окнами приложения!
| Код |
NPadHandle: HWND;
NPadMenu, NPadSubMenu: HMENU;
h:hwnd;
begin
// секция 1 - вызывает определенный пункт меню в главном меню стороннего приложения и следом вызывается диалоговое окно
NPadHandle := FindWindow('tmonitorform',nil);
NPadMenu := GetMenu(NPadHandle);
NPadSubMenu := GetSubMenu(NPadMenu, 0);
SendMessage(NPadHandle, WM_COMMAND, GetMenuItemId(NPadSubMenu, 11), 0);
// секция -2 нажать Enter на кнопке в диалоговом окне
h:=findwindow('tmessageform',nil);
SendMessage(h,WM_SYSCOMMAND, SC_HOTKEY, h);
keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY,0);
keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
|
Так вот, проблема в том что если использовать весь этот код и 1 и 2 секцию программы одновременно, то происходит, что пункт меню нужный вызывается все прекрасно и вызывается диалоговое окно следом, типа подтвердить в котором требуется нажать Enter по кнопке, а вот 2-ая секция приложения не срабатывает и тем более окно мое из под Delphi приложения становится неактивным, пока не нажмешь какую либо кнопку в диалоговом окне. А если использовать отдельно 2-ую секцию кода то все прекрасно работает, т.е. я сам ручками вызвал диалоговое окно и использовал 2-ую секцию кода то все прекрасно кнопка жмется в этом диалоговом окне. В чем беда? такое ощущение что когда первая секция кода выполняется она держит это приложение и ничего дальше сделать с ним нельзя. Помогите пожалуйста разобраться. |