VPF::Нажатие на кнопку чужого приложения

Larry

Дата 9.12.2008, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Ленивый донгловед

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 16.9.2007
Где: Россия

Репутация: нет
Всего: нет

Здравствуйте.

Необходимо нажать на кнопку в чужом приложении (которое написано на кларионе)...

Делаю так:

Код

procedure TMainForm.startClick(Sender: TObject);
var
  h, hb: HWND;
begin
  h := FindWindow(nil, 'Приложение');

  if h <> 0 then begin
     hb := FindWindowEx(h, hb, 'ClaButton', 'Выход');

     if hb = 0 then
       MessageBox(MainForm.Handle, 'Не найдена кнопка выхода из приложения!', 'Ошибка', MB_ICONERROR);
  end else
    MessageBox(MainForm.Handle, 'Окно приложения не найдено!', 'Ошибка', MB_ICONERROR);
end;

Компилирую проект, запускаю, но он упорно не видит кнопки "Выход" в окне чужого приложения. С помощью утилиты EnBtn точно определил, что класс кнопки в чужом приложении имеет значение "ClaButton".

Подскажите, пожалуйста, что я делаю не так?

Заранее благодарен за ответ...

THandle

Дата 9.12.2008, 01:31 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Цитата(Larry @ 9.12.2008, 00:16

)

hb := FindWindowEx(h, hb, 'ClaButton', 'Выход');

Код


hb := FindWindowEx(h, 0, 'ClaButton', 'Выход');

А так?

Larry

Дата 9.12.2008, 01:43 (ссылка)

(нет голосов)

Загрузка ...

THandle, да все, верно. Такой код у меня и есть, в сообщении ошибся. Я нашел причину: оказывается на форме была растянута панель и сперва нужно было найти и ее хэндл. Но у меня возникает еще один вопрос: на форме расположено куча компонентов TEdit. Мне нужно найти определенный из них. С помощью функции:

Код

hb := FindWindowEx(h, 0, 'ClaEdit', '');

Я нахожу компоненту на форме, но самую первую. Можно ли найти определенную компоненту, или хотя бы как-то последовательно перебирать компоненты вручную, пока я не найду именно ту, которая мне нужна?

Заранее благодарен за ответ...

Это сообщение отредактировал(а) Larry - 9.12.2008, 01:43

THandle

Дата 9.12.2008, 02:16 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Larry, либо EnumChildWindows, либо перебирать в цикле окна с помощью GetWindow с GW_HWNDNEXT. Посмотри тему:

http://forum.vingrad.ru/forum/topic-224716...ndow/index.html

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »