Автоматизация Ввода Текста в Окно в Delphi 7

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

Автоматизация Ввода Текста в Окно в Delphi 7

При разработке программ на Delphi 7 может возникнуть потребность в автоматизации ввода текста в окно другого приложения. Это может быть необходимо для тестирования программного обеспечения, автоматизации рутинных операций или для решения специфических задач, когда стандартные методы ввода недоступны.

Проблема и Задача

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

Решение

Использование класса TTouchKeyboard не представляется возможным, так как он доступен начиная с Delphi 10. В качестве альтернативы можно использовать функцию keybd_event из Windows API, которая требует перевода символов в скан-коды клавиатуры. Однако, если не требуется имитация набора текста, можно отправить сообщение WM_SETTEXT в окно редактирования, а затем отправить клавишу Enter как нажатие клавиатуры.

Подтвержденный Метод

Один из разработчиков предложил использовать следующий метод для отправки текста в окно другого приложения:

procedure TForm1.TypeMessage(Msg: string);
var
  CapsOn: boolean;
  i, key: integer;
  ch: char;
  shift: boolean;
begin
  CapsOn := (GetKeyState(VK_CAPITAL) and $1) <> 0;
  for i := 1 to length(Msg) do
  begin
    ch := Msg[i];
    ch := UpCase(ch);
    // ... (остальная часть кода)
  end;
  // Обработка специальных символов и нажатие Enter
end;

Этот метод успешно использовался для отправки текста в приложение, не имеющее интерфейса, и является своего рода "хаком".

Дополнительные Советы

Для отправки клавиши Enter после ввода текста, можно вызвать функцию TypeMessage с параметром char(VK_RETURN). Также, код был обновлен для поддержки ввода специальных символов, таких как /, . или :.

Альтернативный Подход

Вместо написания собственного кода, можно использовать функцию SendKeys() из модуля SNDKEY32.PAS, который должен быть доступен на диске с установщиком Delphi 7. В случае утери диска, исходный код модуля можно найти в интернете.

Заключение

Автоматизация ввода текста в Delphi 7 может быть непростой задачей, но с правильным подходом и использованием доступных инструментов, она становится выполнимой. Использование предложенных методов позволит разработчикам интегрировать функциональность автоматического ввода текста в свои проекты, что может значительно упростить тестирование и автоматизацию рабочих процессов.

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

Контекст: Необходимо автоматизировать ввод текста в окно другого приложения при разработке на Delphi 7.

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

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

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