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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> найти handle Edit'ov 
V
    Опции темы
COOLHack
Дата 17.8.2008, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Вообщем такая проблема.

Есть активное окно. в нём есть компонент Edit. В этом Edit записан какой-то текст. Например "123".  
В данном окне Editov много. 

Дак вот как найти Хендл именного того, в котором записанно "123"?
PM MAIL   Вверх
VICTAR
Дата 17.8.2008, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80
Перебирать все эдиты (например EnumChildWindows) и смотреть какой в них текст (например GetWindowText).
PS если это в своем приложении, то все намного проще
PM MAIL   Вверх
COOLHack
Дата 17.8.2008, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Если не сложно, покажи пример рабочего кода. 
PM MAIL   Вверх
VICTAR
Дата 17.8.2008, 18:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80
drkb, google. msdn наконец. примеров много.
PM MAIL   Вверх
COOLHack
Дата 17.8.2008, 18:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Пасиб конечно, но drkb и google я смотрел. до меня туго доходит. вот и попросил тя пример раболчего кода показать.
PM MAIL   Вверх
VICTAR
Дата 17.8.2008, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80
Показывай что не получается, там уже будет видно.
А так, в центр помощи.
PM MAIL   Вверх
COOLHack
Дата 17.8.2008, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
каким образом можно перебрать едиты?.
PM MAIL   Вверх
Qu1nt
Дата 17.8.2008, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 18
Всего: 50
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
      if TEdit(Components[i]).Text = '123' then
      begin
        Self.Caption := IntToStr(TEdit(Components[i]).Handle);
        Break;
      end;
end;
PM MAIL   Вверх
THandle
Дата 17.8.2008, 19:44 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



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

Репутация: 65
Всего: 372
Qu1nt, это TEdit'ы в своем окне, а если надо найти что то еще?

Примеров предостаточно в интернете, но ссылку давать не буду, искать не могу, GPRS.

Вот пример:

Код


function EnumChild (HWND : HWND; lParam : LPARAM) : BOOl; stdcall;
const
  STR_SIZE = 256;
var
  Str : PChar;
begin
  GetMem(Str, STR_SIZE);
  if GetClassName(HWND, Str, STR_SIZE) > 0 then
    if StrComp(Str, 'TEdit') = 0 then
      ShowMessage('TEdit');
  FreeMem(Str, STR_SIZE);
end;



Ищет в окне, переданном в параметре HWND все окна класса TEdit.
Если нашел, то показывает сообщение об этом.
В общем просто пример. Можно искать окна любого класса...

Вызываем для своего окна:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumChildWindows(Handle, @EnumChild, 0)
end;
PM   Вверх
COOLHack
Дата 18.8.2008, 10:05 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
THandle, а как теперь найти хендл того, в котором текст "123"?
PM MAIL   Вверх
Romikgy
Дата 18.8.2008, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
добавить проверку
GetWindowText


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
VICTAR
Дата 18.8.2008, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80
По коду THandle хочется сказать, что надо добавить результат, возвращаемый функцией 
Цитата

To continue enumeration, the callback function must return TRUE; to stop enumeration, it must return FALSE. 

Желательно вместо GetClassName использовать RealGetWindowClass и делать проверку на 'EDIT'.
PM MAIL   Вверх
COOLHack
Дата 18.8.2008, 11:52 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

добавить проверку
GetWindowText 


Если не сложно, покажи пример кода, а то чёт неполучается нифига. 
PM MAIL   Вверх
COOLHack
Дата 18.8.2008, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

добавить проверку
GetWindowText 


Код

У функции GetWindowText есть еще одна особенность - она не может читать данные из текстовых полей окон другой программы.



а поле edit в котором нужно найти текст "123" как раз в другой программе.
PM MAIL   Вверх
COOLHack
Дата 18.8.2008, 13:10 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

function EnumChild (HWND : HWND; lParam : LPARAM) : BOOl; stdcall;
const
  STR_SIZE = 256;
var
  Str : PChar;
begin
  GetMem(Str, STR_SIZE);
  if GetClassName(HWND, Str, STR_SIZE) > 0 then
    if StrComp(Str, 'TEdit') = 0 then
      ShowMessage('TEdit');
  FreeMem(Str, STR_SIZE);
end;



Это работает ттолько в своей проге. а как сделать тоже самое, но в чужой, если чужое окно в момеент выполнения кода активное?
PM MAIL   Вверх
THandle
Дата 18.8.2008, 16:30 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



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

Репутация: 65
Всего: 372
Цитата(COOLHack @  18.8.2008,  14:10 Найти цитируемый пост)

Это работает ттолько в своей проге. а как сделать тоже самое, но в чужой, если чужое окно в момеент выполнения кода активное? 


Это работает в любой программе.

Я же написал:


Цитата(THandle @  17.8.2008,  20:44 Найти цитируемый пост)

Ищет в окне, переданном в параметре HWND все окна класса TEdit.


Передавай туда что угодно, хоть окно проводника, хоть что.
Ищи это окно с помощью FindWindow.
PM   Вверх
THandle
Дата 19.8.2008, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



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

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

Код

function EnumChild (HWND : HWND; lParam : LPARAM) : BOOl; stdcall;
const
  STR_SIZE = 256;
var
  Str : PChar;
  WndText : string;
  WndTextLen : integer;
begin
  try
    GetMem(Str, STR_SIZE);
    if GetClassName(HWND, Str, STR_SIZE) > 0 then
      if StrComp(Str, 'TEdit') = 0 then
        begin
          WndTextLen := SendMessage(HWND, WM_GETTEXTLENGTH, 0, 0);
          SetLength(WndText, WndTextLen);
          if WndTextLen > 0 then
            begin
              SendMessage(HWND, WM_GETTEXT, WndTextLen + 1, Integer(WndText));
              if CompareStr(WndText, '123') = 0 then
                ShowMessage('123Edit');
            end;
        end;
  finally
    FreeMem(Str);
  end;
end;


Вот так вызываем:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumChildWindows(Handle, @EnumChild, 0);
end;


Или можно в цикле перебирать окна с помощью GetWindow(HWND, GW_HWNDNEXT)
PM   Вверх
COOLHack
Дата 19.8.2008, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Работает, РЕСПЕКТ!.

Добавлено через 12 минут и 44 секунды
А как искать это в чужом окне? Когда я пишу так: HWND:=findwindow(nil, 'blblbl') то ничего не ищется. При этом в HWND 100% хендл окна. 



Это сообщение отредактировал(а) COOLHack - 19.8.2008, 12:03
PM MAIL   Вверх
THandle
Дата 19.8.2008, 12:15 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



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

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

Функцию саму не трожь!!!!

Меняй вызов:
Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumChildWindows(findwindow(nil, 'blblbl'), @EnumChild, 0);
end;


Добавлено через 11 минут и 3 секунды
Почитай:

http://msdn.microsoft.com/en-us/library/ms633494(VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms633493(VS.85).aspx

HWND в функции EnumChild это найденное дочернее окно, а то что передаются в HWND EnumChildWindows - родительское окно, на котором и будет происходить поиск.
PM   Вверх
COOLHack
Дата 19.8.2008, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Пасиб. 
PM MAIL   Вверх
Larry
  Дата 9.12.2008, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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



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

Репутация: нет
Всего: нет
Не совсем понял, как реализовать перебор окон с заданным текстом. Мне больше по душе GetWindow. Я делаю так:
Код
var
  h, he, ht: HWND;
  Str : PChar;
  i: integer;
begin
  h := FindWindow(nil, 'Окно чужого приложения');

  if h <> 0 then begin
     ht := GetWindow(h, GW_HWNDLAST);
     he := GetWindow(h, GW_CHILD);

     while (he <> ht) do begin
        he := GetWindow(h, GW_HWNDNEXT);
        GetWindowText(he, Str, 11);
        if (Str = '        999') then break;
     end;

     SendMessage(he, WM_SETTEXT, 0, LParam(PChar('Я нашел тебя')));

  end else
    MessageBox(MainForm.Handle, 'Не найдено окно чужого приложения!', 'Ошибка', MB_ICONERROR);

Мне нужно найти компоненту ClaEdit с вбитым туда текстом '        999'. Но у меня программа не то, чтобы не находит эту компоненту, но даже из цикла while почему-то не выходит.
PM MAIL WWW   Вверх
Romikgy
Дата 9.12.2008, 16:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Код

function isTextWin(sx: string; h: HWND):HWND;
var cur_str: string;
  h1,hc: HWND;
begin
  h1:=h;

  while (h1<>0) do
  begin
     SetLength(cur_str,GetWindowTextLength(h1)+1);
     GetWindowText(h1,PChar(cur_str),Length(cur_str));
     cur_str:=PChar(cur_str);
     if sx=cur_str then Break;
     hc:=GetWindow(h1, GW_CHILD);

     if hc<>0 then
     hc:=isTextWin(sx,hc);
     if hc=0 then
     h1:=GetWindow(h1, GW_HWNDNEXT);

  end;
  Result:=h1;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  h, he: HWND;
  Str : PChar;
  i: integer;
begin
  h := FindWindow(nil, 'Form1');
  if h <> 0 then begin
     he:=isTextWin('btn1',GetWindow(h, GW_CHILD));
     if he<>0 then
     SendMessage(he, WM_SETTEXT, 0, LParam(PChar('Я нашел тебя')))
     else
     MessageBox(Handle,
    'Нет окон с таким текстом!', 'Ошибка', MB_ICONERROR);

  end else
    MessageBox(Handle,
    'Не найдено окно чужого приложения!', 'Ошибка', MB_ICONERROR);

end;


Это сообщение отредактировал(а) Romikgy - 9.12.2008, 16:35


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Larry
  Дата 10.12.2008, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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



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

Репутация: нет
Всего: нет
Romikgy, спасибо за помощь. Вечером буду пробовать.
PM MAIL WWW   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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