Ошибка "Недействительная оконная ручка" при работе с WinAPI в Delphi

Delphi , Синтаксис , Справочник по API-функциям

При работе с оконными функциями WinAPI в среде разработки Delphi, разработчики часто сталкиваются с ошибкой "Недействительная оконная ручка" (Invalid window handle). Это происходит, когда программа пытается выполнить операцию с оконной ручкой, которая не существует или не является действительной в данный момент. В контексте текущего вопроса, проблема заключается в том, что необходимо получить ручки обоих текстовых полей в окне, которое принадлежит другому приложению.

Шаг 1: Поиск главного окна целевого приложения

Чтобы получить доступ к дочерним элементам окна другого приложения, сначала необходимо найти его главное окно. Это можно сделать с помощью функции FindWindow или EnumWindows.

Шаг 2: Перечисление всех дочерних окон главного окна

После того, как главное окно найдено, следует использовать функцию EnumChildWindows для перечисления всех его дочерних окон.

Шаг 3: Проверка класса дочерних окон

В функции обратного вызова EnumChildWindows, следует использовать функцию GetClassName для проверки класса дочернего окна. Для стандартного текстового поля Windows класс будет EDIT.

Исправление кода обратного вызова

В предоставленном примере кода обратного вызова используется метод экземпляра класса, что некорректно. Обратный вызов должен быть объявлен как статическая функция:

function EnumChildWindowsCallback(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
begin
  // Здесь можно получить и обработать имя класса окна
  Result := True;
end;

Сохранение ручек текстовых полей

Чтобы сохранить ручки найденных текстовых полей, можно использовать параметр lParam функции EnumChildWindows. В нем можно передать указатель на объект класса, который будет использовать эти ручки:

type
  TMyClass = class
  private
    FTextFields: TArray<THandle>;
    // Другие поля класса
  public
    procedure EnumChildren(const AHWND: THandle);
    // Другие методы класса
  end;

procedure TMyClass.EnumChildren(const AHWND: THandle);
var
  i: Integer;
begin
  SetLength(FTextFields, 0);
  EnumChildWindows(AHWND, @EnumChildWindowsCallback, Integer(Self));
  // Здесь можно обработать массив FTextFields
end;

function TMyClass.EnumChildWindowsCallback(hwnd: HWND; lParam: LPARAM): BOOL;
var
  ClassName: array [1..256] of Char;
begin
  if GetClassName(hwnd, @ClassName[1], Length(ClassName)) = 0 then
    Exit(True);
  if ClassName = 'Edit' then
  begin
    SetLength(TMyClass(lParam).FTextFields, Length(TMyClass(lParam).FTextFields) + 1);
    TMyClass(lParam).FTextFields[High(TMyClass(lParam).FTextFields)] := hwnd;
  end;
  Result := True;
end;

Заключение

Используя вышеописанные шаги, можно корректно перечислить дочерние элементы окна другого приложения и получить ручки текстовых полей для дальнейшей работы с ними. Важно правильно обработать обратный вызов функции EnumChildWindows и использовать параметр lParam для сохранения информации о найденных элементах.

Создано по материалам из источника по ссылке.

Разработчики сталкиваются с ошибкой 'Недействительная оконная ручка' при работе с WinAPI в Delphi, пытаясь получить ручки текстовых полей окна другого приложения для дальнейшего взаимодействия.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::