VPF::Найти компоненты (хэндлы объектов)в Win-приложении

Strint

Дата 7.11.2008, 10:39 (ссылка)

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

Загрузка ...

Новичок

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

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

День добрый.
Стоит следующая задача. Есть некое приложение. Необходимо из него прочесть все данные, которые оно отображает, т.е. что в настоящий момент сейчас отображается в TEdit`е, TRichEdit`е и т.п. Единственное, что нашел это как получить хэндл окна, но на этом всё. Как получить данные с компонентов, которые расположены на этом окне не пойму. Тем более, как я понимаю, у другого приложения, то что выглядит как TEdit, вовсе не обязательно будет являться классом TEdit – может в этом вся и проблема. Помогите с решением. Код, с помощью которого пытался решить привожу…

Код


var
H :HWND;
hEdit: HWND;
begin
  H := FindWindow(nil, 'Калькулятор');
  if H <> 0 then
  begin
   ShowMessage('найдено окно');
    hEdit := FindWindowEx(H, hEdit, PChar('TEdit'), nil);
    if hEdit <> 0 then
      ShowMessage('найден компонент');
  end;
end;

Rrader

Дата 7.11.2008, 12:23 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Цитата(Strint @ 7.11.2008, 17:39

)

Тем более, как я понимаю, у другого приложения, то что выглядит как TEdit, вовсе не обязательно будет являться классом TEdit

Верно. Название класса может быть произвольным (Windows такие вещи позволяет). Стандартное - 'Edit'. Проще данные вещи смотреть через сканеры окон.

Приведенный Вами пример в работающем виде:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: HWND;
  S: String;
  Len: Integer;
begin
  Wnd := FindWindow('SciCalc', 'Калькулятор');
  if Wnd <> 0 then
  begin
    ShowMessage('Найдено окно');
    Wnd := FindWindowEx(Wnd, 0, 'Edit', NIL);
    if Wnd <> 0 then
    begin
      Len := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
      SetLength(S, Len);
      SendMessage(Wnd, WM_GETTEXT, Len, Integer(@S[1]));
      ShowMessage('Найден компонент Edit' + sLineBreak +
        'Текст: ' + S);
    end;
  end;
end;

Это сообщение отредактировал(а) Rrader - 7.11.2008, 12:23

--------------------

Let's do this quickly!
Rest in peace, Vit!

Virtuals

Дата 7.11.2008, 12:31 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Strint

Дата 7.11.2008, 12:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Virtuals @ 7.11.2008, 12:31)

К сожалению, нужен именно текст, а не графический снимок...За код спасибо...

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