Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нахождения компонентов другой программы, наличие нескольких одинаковых типов 
:(
    Опции темы
chiffa
Дата 4.7.2011, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Всем добрый день. Стоит задача получить информацию из определенных полей сторонней программы. Столкнулся с двумя основными проблемами.
1. Spy++ исследовал программу, получить такую структуру:
Код

-TMain
 -TPanel
  -TPageControl
   ...
      -TShape
      -TShape
      -TShape
       -TRichEdit


Перебираю элементы:

Код

H1 := FindWindow ('TMain', nil);
H2 := FindWindowEx(H1, 0, 'TPanel', nil);
H3 := FindWindowEx(H2, 0, 'TPageControl', nil);
....
H7 := FindWindowEx(H5, 0, 'TShape', nil);

и основная проблема: как обратиться к третьему элементу TShape т.к. именно в нем находится нужный мне TRichEdit.

И 2я непонятка. Программа находит и определяем хендлы, только когда приложение активно (то есть моя программка находится над ним), если же приложение в котором ведется поиск не активно или свернуто, почему то ничего не находит...

Буду признателен за подсказки и помощь! Заранее всем спасибо!


Это сообщение отредактировал(а) chiffa - 4.7.2011, 22:09
PM MAIL   Вверх
Keeper89
Дата 4.7.2011, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Что за программа?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
chiffa
Дата 4.7.2011, 17:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Самописная (не мною)...
PM MAIL   Вверх
Keeper89
Дата 4.7.2011, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Пощупать где можно взять?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
chiffa
Дата 4.7.2011, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
к сожалению это нереально :( а универсального способа пройтись по всем компонентам нельзя?...
PM MAIL   Вверх
Keeper89
Дата 5.7.2011, 00:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Ну чем то вкладки отличаются?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
northener
Дата 5.7.2011, 02:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20
Цитата(Keeper89 @  5.7.2011,  00:49 Найти цитируемый пост)
Ну чем то вкладки отличаются? 

А при чём тут вкладки?
Автору нужно на "какой-то вкладке" обнаружить некий "третий элемент TShape", который как автору показывает Spy++, является Parent'ом для какого-то "элемента TRichEdit".
Вкладки он находит, судя по всему. Но вот "третий элемент" ему найти не удаётся. 
Не Брюс он Уиллис!smile



--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
Keeper89
Дата 5.7.2011, 02:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Цитата(northener @  5.7.2011,  02:18 Найти цитируемый пост)
А при чём тут вкладки?

Ну так сначала надо вкладку определить или я не прав?



--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
northener
Дата 5.7.2011, 03:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: нет
Всего: 20
Цитата(Keeper89 @  5.7.2011,  02:39 Найти цитируемый пост)
Ну так сначала надо вкладку определить или я не прав?

Прав. Конечно прав.

Только автору это не поможет. (((
Даже если он эту вкладку найдёт.

Чем-то всё это мне напоминает знаменитое "угадал все буквы, не смог угадать слово".


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
bems
Дата 5.7.2011, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

M
bems		chiffa, не путай кнопку Report с кнопкой ответа


Это сообщение отредактировал(а) bems - 5.7.2011, 09:46


--------------------
Обижено школьников: 8
PM MAIL   Вверх
chiffa
Дата 5.7.2011, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Вкладки то я как раз нахожу, нормально, и первый TShape нахожу, а вот как обратится к третьему TShape - не знаю...

Добавлено через 5 минут и 43 секунды
Цитата(bems @  5.7.2011,  09:46 Найти цитируемый пост)

bems    chiffa, не путай кнопку Report с кнопкой ответа


Сорри... Я вообщем не путаю... инет просто лагает дико и стили посьезжали крайне трудно ориентироваться на странице... еще раз сорри...
PM MAIL   Вверх
Keeper89
Дата 5.7.2011, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Вкладку определил, ок. В каждом шейпе есть РичЕдит? Если нет - то перебери все и как только встретишь один с РичЕдитом, его и бери.

Это сообщение отредактировал(а) Keeper89 - 5.7.2011, 10:24


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
chiffa
Дата 5.7.2011, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
ЭТо то я понимаю.. Но как их перебрать?... можно пример кода?
PM MAIL   Вверх
Keeper89
Дата 5.7.2011, 11:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Через EnumWindows.

Где-то в этих темах я приводил пример:
http://forum.vingrad.ru/forum/topic-265526...ndow/index.html
http://forum.vingrad.ru/forum/topic-261954...ndow/index.html


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
chiffa
Дата 5.7.2011, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Спасибо за ссылки, но что то я там не нашел там примеров с EnumWindows... Если не затруднит можешь скопировать сюда?....
PM MAIL   Вверх
Keeper89
Дата 5.7.2011, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Пройдись еще раз, должны быть


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Dik0n
Дата 5.7.2011, 14:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 10
Народ Вы о чем, TShape это графический элемент он не имеет Handle и на нем нельзя размещять компоненты и EnumWindows тут не поможет.
искать надо примерно так, хватит и одной переменной
Код

H1 := FindWindow ('TMain', nil);
H1 := FindWindowEx(H1, 0, 'TPanel', nil);
H1 := FindWindowEx(H1, 0, 'TPageControl', nil);
....
H1 := FindWindowEx(H1, 0, 'TRichEdit', nil);


Это сообщение отредактировал(а) Dik0n - 5.7.2011, 14:20
--------------------
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ◄◄◄ Сотри монеткой защитный слой
PM MAIL WWW   Вверх
Rrader
  Дата 5.7.2011, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


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

Репутация: 29
Всего: 191
Dik0n, раз у ТС речь идёт о Spy++, то это получается нестандартный TShape с хэндлом.

По теме:
Код

H7 := FindWindowEx(H5, 0, 'TShape', nil);
// Следующий TShape
H7 := GetWindow(H7, GW_HWNDNEXT);
// Следующий TShape
H7 := GetWindow(H7, GW_HWNDNEXT);
// Теперь ищем RichEdit...



--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Dik0n
Дата 5.7.2011, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 10
Цитата(Rrader @  5.7.2011,  14:22 Найти цитируемый пост)
Dik0n, раз у ТС речь идёт о Spy++, то это получается нестандартный TShape с хэндлом

У этого компонента нет Handle вообще!!! смотрим, наследуется от TGraphicControl
Код

  TShape = class(TGraphicControl)
  private
    FPen: TPen;
    FBrush: TBrush;
    FShape: TShapeType;
    procedure SetBrush(Value: TBrush);
    procedure SetPen(Value: TPen);
    procedure SetShape(Value: TShapeType);
  protected
    procedure Paint; override;


Код

  TGraphicControl = class(TControl)
  private
    FCanvas: TCanvas;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  protected
    procedure Paint; virtual;
    property Canvas: TCanvas read FCanvas;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

--------------------
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ◄◄◄ Сотри монеткой защитный слой
PM MAIL WWW   Вверх
chiffa
Дата 5.7.2011, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Спасибо всем! То что нужно! А насчет того что находит только когда окно активно?... Какие могут быть варианты?...
PM MAIL   Вверх
Keeper89
Дата 5.7.2011, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58
Dik0n, Rrader сказал правильно, значит он не обычный smile 


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Dik0n
Дата 5.7.2011, 16:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 10
Keeper89, Вы не поняли, у chiffa уже все прекрасно работает, ньюанс в том, если окно свернуто, то функции по поиску окна не работают...
--------------------
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓ ◄◄◄ Сотри монеткой защитный слой
PM MAIL WWW   Вверх
chiffa
Дата 5.7.2011, 16:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
да именно так... непонятно только почему....
PM MAIL   Вверх
Rrader
  Дата 5.7.2011, 17:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


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

Репутация: 29
Всего: 191
Какой хэндл не находится, когда программа свернута?


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
chiffa
Дата 5.7.2011, 17:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
TPageControl....
PM MAIL   Вверх
chiffa
Дата 5.7.2011, 18:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
Ошибка найдена... формы с заглавным именем класса TfrmMain запущено несколько, поэтому оно и не подхватывает ту которая активна, если не активны все, то хрен знает по какому принципу оно определяет первую форму...

Отсюда вопрос: как задать именно нужную мне окно (кроме как прописать тайтл)?...
PM MAIL   Вверх
Rrader
Дата 6.7.2011, 05:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


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

Репутация: 29
Всего: 191
Тогда скажи нам, есть ли у нужной формы какие-нибудь уникальные признаки?


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
chiffa
Дата 6.7.2011, 08:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: -1
А что значит уникальные признаки?Я всегда считал что уникальный признак это Имя класса и заголовок, как показала практика я ошибался...

Перебирать все компоненты со всех форм и сравнивать с заранее заданной структурой - иррационально... 
PM MAIL   Вверх
Rennigth
Дата 7.7.2011, 10:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 8
Всего: 76
Цитата(chiffa @  6.7.2011,  08:36 Найти цитируемый пост)
Перебирать все компоненты со всех форм и сравнивать с заранее заданной структурой - иррационально...  

Ну почему иррационально(чего в жизни иногда не зделаешь ради победы  smile ), а вообще как я понимаю формы то у тебя не одинаковые, так значит у них и класс окна разный  smile  


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.4229 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.