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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нахождения компонентов другой программы, наличие нескольких одинаковых типов 
:(
    Опции темы
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   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "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.0626 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


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

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