Ввод пароля в чужое окно

[ivanik]

Не могу ввести пароль в окно инсталлятора SmartInstalMaker
при инсталляции программы:
Вот фрагмент кода:

1  if findwindow(nil, 'Установка программы') = 0 then
2  begin
3  h1 := FindWindow(nil, 'Установка программы'); //здесь находит Hendl 
4  h4 := FindWindowEx(h1,0,'obj_BUTTON',nil); //здесь находит Hendl 
5  h2 := FindWindowEx(h4,0,'obj_EDIT',nil); //здесь Hendl = 0, 
    // хотя он есть в контейнере obj_BUTTON
6  SendMessage(h2, WM_SETTEXT, 0, lparam(pchar('пароль)));  
    // поле obj_EDIT не заполняется
7  h3:=findwindowex(h1,0,nil,'Далее'); //естественно здесь Hendl = 0  
8  sendmessage(h3,BM_CLICK,0,0); 
9  if (h3<>0) then
10    begin
11    SetForegroundWindow(h3);
12    SendMessage(h3, WM_ACTIVATE, 1, 0);
13    SendMessage(h3, WM_ENABLE, 1, 0);
14  SendMessage(h3, WM_SETFOCUS, 1, 0);
15   end;
16   SendMessage(h3,BM_CLICK,0,0);      
17  end;

Подобный код без проблем работает при вводе паролей в Word и прочих приложениях.
Поле ввода пароля (класс obj_EDIT) идентифицируется в SPY++.
При вызове окна ввода пароля курсор уже стоит в нем.
Помогите разобраться.
Спасибо.

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[eoln]

h4 := FindWindowEx(h1,0,'obj_BUTTON',nil); //здесь находит Hendl

странное имя для контейнера. Он там один или есть ещё граждане с такими именами? Скрин SPY желательно прикрепить бы (развёрнутый)

[ivanik]

Здравствуйте!
Спасибо, что откликнулись на просьбу.

Имя контейнера "Пароль установки", а его класс obj_BUTTON (конечно странно).
после ввода пароля (если вручную), то кнопка "Далее" становится активной.

Но так как я не могу прочитать Hendl поля ввода пароля obj_EDIT, то не могу активировать кнопку "Далее".
Пробовал нажать кнопку "Отмена". Она срабатывает нормально.
В общим тормозит поле ввода obj_EDIT.
В SPY++ и др. подобных программах это поле ввода просматривается как
дочернее окно контейнера "Пароль установки".
Hendl самого контейнера считывается.
Пробовал вместо класса obj_EDIT вводить edit и пустую стороку
- не проходит.
Вроде простое дело, а я на нем тормознулся.
С другими программами я спокойно заполняю несколько полей и нажимаю несколько кнопок, а здесь не могу.
Если не трудно попробуйте поэкспериментировать непосредственно с этим окно инсталлятора SmartInstalMaker

[ivanik]

Извините! Забыл вставить фрагмент SPY++:

А это проверка WinSight - утилиты из Delphi 7:
.
Везде показывает контейнер и вложенное в него окно ввода класса obj_EDIT.
Спасибо за внимание.

[eoln]

Более интересен был скрин Spy. Скачал этот SmartInstalMaker, запустил, и у меня спу показывает ещё и obj_STATIC
0.jpg
Перед

h4 := FindWindowEx(h1,0,'obj_BUTTON',nil); //здесь находит Hendl

нужно поискать ещё и obj_STATIC, а уже в нём obj_BUTTON и далее obj_EDIT
Но так как там несколько obj_STATIC, то придётся перебирать проверяя дополнительно стиль каждого obj_STATIC (он должен быть visible), либо не заморачиваться и смотреть есть ли в этом obj_STATIC объект obj_BUTTON с текстом "Пароль установки". Если нет, то проверять следующий obj_STATIC

Пы.Сы. Картинки не отображаются

[ivanik]

Спасибо. Я попробую еще.