VPF::найти handle Edit'ov - Форум программистов

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.

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)

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

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 - родительское окно, на котором и будет происходить поиск.

COOLHack

Дата 19.8.2008, 12:29 (ссылка)

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

Загрузка ...

Опытный

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

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

Пасиб.

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 почему-то не выходит.

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

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Larry

Дата 10.12.2008, 14:14 (ссылка)

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

Загрузка ...

Romikgy, спасибо за помощь. Вечером буду пробовать.

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