Найти и нажать нужную кнопку другой программы

[evanov4]

Пользовался FindWindowEx все работало хорошо, пока не попалась одна программа, где функция не сработала. Почитав тему http://www.programmersforum.ru/showthread.php?t=5139

выяснил, что возможно, кнопка расположена на панели или типа того.

в той же теме (пост №3) была приведена рекурсивная функция, которая обходит "оконное дерево" в поисках нужной кнопки по кэпшену.
Все бы ничего, но она написана на Си и прежде чем автор откликнулся на просьбу написать подобное на Паскале, тему закрыли.
Своими силами написать не смог, поэтому прошу помощи.

Вот, собственно, она:

HWND Walk(HWND Current,char * name)
{
  HWND temp;
  temp=GetWindow(Current,GW_CHILD); // находим первое дочернее окно
  while (temp!=NULL) // проверяем, а есть ли оно вообще
  {
     char WindowText[1024];
     GetWindowText(temp,WindowText,1023); // получаем его название
     if (!strcmp(name,WindowText)) return temp; // проверяем, искомая ли это кнопка, если да, то возвращаем её хэндл

     HWND result=Walk(temp,name); // если это была не она, то обходим её дочерние объекты

     if (result!=NULL) return result; // если при этом искомый объект был найден, возвращаем хэндл на него

     temp=GetWindow(temp,GW_HWNDNEXT) // иначе - проверяем следующий объект, дочерний для Current
  }
  return NULL; // объект не найден
}

[Aliens_wolfs]

Вот накидал из вашего примера в любом окне находит нужное дочернее окно

function strcmp(const Str1, Str2: PChar): Integer; assembler;
asm
        PUSH    EDI
        PUSH    ESI
        MOV     EDI,EDX
        MOV     ESI,EAX
        MOV     ECX,0FFFFFFFFH
        XOR     EAX,EAX
        REPNE   SCASB
        NOT     ECX
        MOV     EDI,EDX
        XOR     EDX,EDX
        REPE    CMPSB
        MOV     AL,[ESI-1]
        MOV     DL,[EDI-1]
        SUB     EAX,EDX
        POP     ESI
        POP     EDI
end;

function Walk(Current: HWND; FindName: String): HWND;
var
tempHwnd: HWND;
WindowText: string;
begin
Result:= 0;

  tempHwnd:= GetWindow(Current, GW_CHILD);
  while tempHwnd <> 0 do
  begin

  SetLength(WindowText, 1023);
  SetLength(WindowText, GetWindowText(tempHwnd, PAnsiChar(WindowText), 1023));

  if (strcmp(PAnsiChar(FindName), PAnsiChar(WindowText)) = 0) then
  begin
  Result:= tempHwnd;
  exit;
  end;

 tempHwnd:= GetWindow(tempHwnd, GW_HWNDNEXT);
end;
 end;

//Применять так
procedure TForm1.Button1Click(Sender: TObject);
var
H: Hwnd;
begin
H:= FindWindow('TForm1', 'Form1');
if H <> 0 then
Showmessage(Inttostr(Walk(H, 'Button2')));
end;

[evanov4]

Спасибо, но не совсем так.

Например мне нужно нажать Кнопку №3

структура формы:

...................Главная______фор ма..........................
.................../........................... \........................
............Панель N1 ................. Панель N2...............
.........../........... \.................. /.............\..............
....кнопка N1 .... Кнопка N2 ... Панель N3 ... Кнопка N3
................................... ......./................................
................................... Кнопка N4..........................

Ваша функция обходит все дочерние элементы главной формы (т.е. Панель №1 и Панель №2) и, не найдя Кнопку №3, возвращает 0.

Я доработал условие:

if (strcmp(PAnsiChar(FindName), PAnsiChar(WindowText)) = 0) then
  begin
  Result:= tempHwnd;
  exit;
  end 
else result:=walk(tempHwnd,FindName)

чтоб обойти дочерние элементы Панелей 1 и 2,
но возвращается все равно 0. Не пойму почему...

[Aliens_wolfs]

Подкорректировал попробуйте

function Walk(Current: HWND; FindName: String): HWND;
var
tempHwnd: HWND;
WindowText: string;
begin
  tempHwnd:= GetWindow(Current, GW_CHILD);
  while tempHwnd <> 0 do
  begin

  SetLength(WindowText, 1023);
  SetLength(WindowText, GetWindowText(tempHwnd, PAnsiChar(WindowText), 1023));

  if (strcmp(PAnsiChar(FindName), PAnsiChar(WindowText)) = 0) then
  begin
  Result:= tempHwnd;
  exit;
  end
  else
    Result:= Walk(tempHwnd, FindName);

  tempHwnd:= GetWindow(tempHwnd, GW_HWNDNEXT);
end;

 end;

[evanov4]

Все равно возвращается 0.

У меня отрабатывает вот такой вариант:

function  Walk(Current:HWND;name:string):hwnd;
var temp,res:HWND; WindowText:pansichar;
begin

  temp:=GetWindow(Current,GW_CHILD);

  while (temp > 0) do begin
     GetWindowText(temp,(WindowText),1023); 

     if (name)=(WindowText) then
     result:= temp
           else
     result:=Walk(temp,name);

     if (result <> NULL)
     then result:= result;

     temp:=GetWindow(temp,GW_HWNDNEXT) 

  end;

end;

Нужная мне кнопка нажимается, но вылетает ошибка
"Access violation at address EE20E5E8. Read of address EE20E5E8."

[Aliens_wolfs]

Попробуйте

function Walk(Current: HWND; FindName: String): HWND;
var
tempHwnd: HWND;
WindowText: string;
begin
  tempHwnd:= GetWindow(Current, GW_CHILD);
  while tempHwnd <> 0 do
  begin

  SetLength(WindowText, 1023);
  SetLength(WindowText, GetWindowText(tempHwnd, PAnsiChar(WindowText), 1023));

  if (strcmp(PAnsiChar(FindName), PAnsiChar(WindowText)) = 0) then
  begin
  Result:= tempHwnd;
  exit;
  end;

  Result:= Walk(tempHwnd, FindName);

  if Result <> 0 then
  Exit;

  tempHwnd:= GetWindow(tempHwnd, GW_HWNDNEXT);
end;
Result:= 0;
 end;

Второй вариант игнорирет регистр

function Walk(Current: HWND; FindName: String): HWND;
var
tempHwnd: HWND;
WindowText: string;
begin
  tempHwnd:= GetWindow(Current, GW_CHILD);
  while tempHwnd <> 0 do
  begin

  SetLength(WindowText, 1023);
  SetLength(WindowText, GetWindowText(tempHwnd, PAnsiChar(WindowText), 1023));

  if (AnsiLowerCase(FindName) = AnsiLowerCase(WindowText)) then
  begin
  Result:= tempHwnd;
  exit;
  end
  else
  Result:= Walk(tempHwnd, FindName);

  tempHwnd:= GetWindow(tempHwnd, GW_HWNDNEXT);
end;

 end;

[evanov4]

Да! Прекрасно работает!

Безмерно благодарен вам за помощь, дорогой друг!