Найти окно, нажать в нём кнопку. Не срабатывает с 1-2-ой попытки.

[Человек_Борща]

Доброго времени!

При энумирации окон, ищу и коллекционирую нужные данные, конкретно чужого окна.
В числе прочих, нахожу кнопку с нужным текстом, нужно произвести 2 действия над окном:
1. Нажать найденную кнопку
2. Просто закрыть окно

Проблема:
Не сработывает с первого раза, ни первое ни второе действия.

Выкладываю исходник, помогите пожалуйста=)

[Аватар]

EnumProc
1. Если задан класс окна и он не совпадает с классом найденного окна - дальше зачем проверять? Сразу Exit
2. Аналогично для заголовка окна

EnumChildProc
1. в строке if Pos(LowerCase(p.swText), LowerCase(sText)) > 0 then нужно с p.swButtonText работать
2. Если задан класс кнопки и он не совпадает с классом найденного окна - дальше зачем проверять? Сразу Exit
3. Аналогично для текста
4. Если нашли искомый объект - сразу прервать в EnumProc поиск, а у вас он продолжается и всегда на последнюю кнопку вываливает, если их несколько и по ней отрабатывает нажатие

[Аватар]

Вот немного подправил, коряво, но работает

type
  TWindowSearchInfo = record //Èíôîðìàöèÿ äëÿ ïîèñêà
    swClass: string;
    swTitle: string;
    swText: string;
    swAction: SmallInt;
    swButtonClass: string;
    swButtonText: string;
    WindowInfo: PWindowInfo;
    swFound: Boolean;
    swFoundButton: Boolean;
  end;
  PWindowSEarchInfo = ^TWindowSearchInfo;

function EnumChildProc(aHWND: HWND; lParam: LPARAM): LongBool; stdcall;
var
  P: PWindowSEarchInfo;
  sText, sTextClass: string;

begin
  P := PWindowSearchInfo(lParam);

  if IsChild(p.WindowInfo.wHandle, aHWND) and not p.swFoundButton then
  begin
    sText := ReturnControlText(aHWND);
    sTextClass := ReturnControlClass(aHWND);
    MainForm.Memo1.Lines.Add('"' + sText + '" "' + sTextClass + '" ' +
      IntToStr(aHWND));

    //Ищем класс кнопки
    if not (p.swButtonClass = EmptyStr) then
    begin
      if Pos(LowerCase(p.swButtonClass), LowerCase(sTextClass)) > 0 then
      begin
        p.WindowInfo.wButtonClass := sTextClass;
        p.WindowInfo.wButtonHandle := aHWND;
      end
      else Exit;
    end;

    //Ищем текст кнопки
    if not (p.swButtonText = EmptyStr) then
    begin
      if Pos(LowerCase(p.swButtonText), LowerCase(sText)) > 0 then
      begin
        p.WindowInfo.wButtonText := sText;
        p.WindowInfo.wButtonHandle := aHWND;
      end
      else Exit;
    end;

    p.swFoundButton:=True;
  end;
end;

function EnumProc(aHWND: HWND; alParam: LPARAM): LongBool; stdcall;
var
  P: PWindowSEarchInfo;
  sClass, sTitle: string;
begin
  P := PWindowSearchInfo(alParam);
  if IsWindowVisible(aHWND) and IsWindowEnabled(aHWND) and not IsIconic(aHWND) and not P.swFound
    then
  begin
    //Класс
    if not (p.swClass = EmptyStr) then
    begin
      sClass := ReturnControlClass(aHWND);
      if Pos(LowerCase(p.swClass), LowerCase(sClass)) > 0 then
      begin
        p.WindowInfo.wClass := sClass;
        p.WindowInfo.wTitle := ReturnControlText(aHWND);
        p.WindowInfo.wHandle := aHWND;
      end
      else Exit;
    end;

    //Заголовок
    if not (p.swTitle = EmptyStr) then
    begin
      sTitle := ReturnControlText(aHWND);
      if Pos(LowerCase(p.swTitle), LowerCase(sTitle)) > 0 then
      begin
        p.WindowInfo.wClass := ReturnControlClass(aHWND);
        p.WindowInfo.wTitle := sTitle;
        p.WindowInfo.wHandle := aHWND;
      end
      else Exit;
    end;

    P.swFound:=True;

    //Поиск внутри окна компонентов
    if not (p.swText = EmptyStr) or not (p.swButtonClass = EmptyStr) or not
      (p.swButtonText = EmptyStr) then
    begin
      EnumChildWindows(aHWND, @EnumChildProc, Integer(P))
    end;
  end;
end;

procedure TMainForm.StartBtnClick(Sender: TObject);
var
  aRec: TWindowSearchInfo;
  afRec: TWindowInfo;
  tStart, tEnd: Cardinal;

begin
  Memo1.Lines.Clear;
  tStart := GetTickCount;
  FillChar(aRec, 0, SizeOf(TwindowSearchInfo));
  FillChar(afRec, 0, SizeOf(TwindowInfo));
  aRec.swClass := WindowClassEdit.Text;
  aRec.swTitle := WindowTitleEdit.Text;
  aRec.swText := WindowTextEdit.Text;
  aRec.swAction := WindowActionCombo.ItemIndex;
  aRec.swButtonClass := ButtonClassEdit.Text;
  aRec.swButtonText := ButtonTextEdit.Text;
  aREc.WindowInfo := @afRec;
  aREc.swFound := False;
  aREc.swFoundButton := False;
  if EnumWindows(@EnumProc, Integer(@aRec)) then
  begin
    Log.Lines.Clear;
    log.Lines.Add('Класс окна: ' + afRec.wClass);
    log.Lines.Add('Заголовок окна: ' + afRec.wTitle);
    log.Lines.Add('---------');
    log.Lines.Add(' ');
    log.Lines.Add('Класс текста в окне: ' + afRec.wTextClass);
    log.Lines.Add('Текст в окне: ' + afRec.wText);
    log.Lines.Add('ID текста в окне: ' + IntToStr(afRec.wTextHandle));
    log.Lines.Add('---------');
    log.Lines.Add(' ');
    log.Lines.Add('Класс кнопки: ' + afRec.wButtonClass);
    log.Lines.Add('Текст кнопки: ' + afRec.wButtonText);
    log.Lines.Add('ID кнопки: ' + IntToStr(afREc.wButtonHandle));
    log.Lines.Add('---------');
    log.Lines.Add(' ');
    log.Lines.Add('ID окна: ' + IntToStr(afRec.wHandle));
  end;
  tEnd := GetTickCount - tStart;
  log.Lines.Add('---------');
  log.Lines.Add('TIME: ' + IntToStr(tEnd) + ' ms');

 // SetForegroundWindow(afRec.wHandle);
  IF aRec.swFound then //найдено
  case aRec.swAction of
    0: SendMessage(afRec.wHandle, WM_CLOSE, 0, 0);//close
    1: if aRec.swFoundButton then
    begin
      SendMessage(afRec.wButtonHandle, WM_LBUTTONDOWN, 1, 1);
      SendMessage(afRec.wButtonHandle, WM_LBUTTONUP, 1, 1);
    end;
  end;
end;

[Человек_Борща]

Сообщение от Аватар

EnumProc
1. Если задан класс окна и он не совпадает с классом найденного окна - дальше зачем проверять? Сразу Exit
2. Аналогично для заголовка окна

EnumChildProc
1. в строке if Pos(LowerCase(p.swText), LowerCase(sText)) > 0 then нужно с p.swButtonText работать
2. Если задан класс кнопки и он не совпадает с классом найденного окна - дальше зачем проверять? Сразу Exit
3. Аналогично для текста
4. Если нашли искомый объект - сразу прервать в EnumProc поиск, а у вас он продолжается и всегда на последнюю кнопку вываливает, если их несколько и по ней отрабатывает нажатие

Почему Exit? EnumProc по сути это CallBack какого-то системного цикла. Exit - прервёт цикл...


Допустимя я получаю нужную информацию по окнам..
Сработывает вот этот кусок:

  if aRec.swFound then //найдено
    case aRec.swAction of
      0: SendMessage(afRec.wHandle, WM_CLOSE, 0, 0); //close
      1: if aRec.swFoundButton then
        begin
          SendMessage(afRec.wButtonHandle, WM_LBUTTONDOWN, 1, 1);
          SendMessage(afRec.wButtonHandle, WM_LBUTTONUP, 1, 1);
        end;
    end;

С какого-то перепугу на окно не действует WM_CLOSE, можно ли как-то закрыть окно другим способом?

С нажатием тоже интересная ситуация, нужно 2 раза найти нужное окно и только со 2-го раза оно ткнёт на нужную кнопку(С первого раза, вообще ничего не происходит)...

В качестве мыши для препарирования, наваял консолькую программу с вызовом MessageBox при запуске(MsgBox.dpr)

[Аватар]

Почему Exit? EnumProc по сути это CallBack какого-то системного цикла. Exit - прервёт цикл...

Чего вдруг прервет? Выход по концу процедуры не прерывает, чем Exit хуже? Попробуйте подправленный код, нормально закрывает и кнопки нажимает. У вас там просто небольшая путаница с сохранением Handle. Я задавал класс окна и его заголовок, класс кнопки и Caption её. А для отладки просто проект с формой и двумя буттонами