Как при помощи Sendinput отправить текст из tEdit?

← →
Romancaw (2011-10-15 03:27) [0]

Здравствуйте!
Скажите пожалуйста, как в Delphi при помощи Sendinput отправить текст из tEdit любое приложение? Даже если моё приложение неактивно (хочу использовать горячие клавиши в ActionManager).
Буду очень признателен за помощь.

← →
Rouse_ © (2011-10-15 03:34) [1]

Установить фокус на оно ввода и выполнить Sendinput

← →
Romancaw (2011-10-15 11:07) [2]

С кодом можете помочь?
Тут нужно что бы в фокусе было не конкретное окно, а просто то, которое активно.

← →
Омлет © (2011-10-15 11:47) [3]

> а просто то, которое активно.

А кто, по-вашему, принимает сообщения в результате Sendinput? Активное окно и принимает. Я, честно, не понимаю, в чем у вас загвоздка.

← →
Romancaw (2011-10-15 12:00) [4]

Вот в чем загвоздка:
var Pos: TPoint; Target: HWND; ... if not GetCursorPos(Pos) then RaiseLastOSError; Target := WindowFromPoint(Pos); if Target<>0 then Sendinput(Edit1.Text);
Кода даже не компилируется

Ну, как обычно.
Когда код не компилируется, компилятор выдает ошибку и показывает на строку, в которой ошибка находится. Если не можете перевести на русский текст ошибки так и скажите. А еще неплохо было бы узнать назначение Sendinput и способы работы с этим.

Как при помощи Sendinput отправить текст из tEdit? Найти похожие ветки