Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Найти компоненты (хэндлы объектов)в Win-приложении

Автор: Strint 7.11.2008, 10:39

День добрый.
Стоит следующая задача. Есть некое приложение. Необходимо из него прочесть все данные, которые оно отображает, т.е. что в настоящий момент сейчас отображается в 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

Цитата(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;

Автор: Virtuals 7.11.2008, 12:31

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

Автор: Strint 7.11.2008, 12:42

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

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