| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как при помощи Sendinput отправить текст из tEdit? [D7]
Romancaw © (2011-10-15 03:27:00)Здравствуйте!
Скажите пожалуйста, как в Delphi при помощи Sendinput отправить текст из tEdit любое приложение? Даже если моё приложение неактивно (хочу использовать горячие клавиши в ActionManager).
Буду очень признателен за помощь.
Омлет (2011-10-15 12:14:00) [1]Ну, как обычно.
Когда код не компилируется, компилятор выдает ошибку и показывает на строку, в которой ошибка находится. Если не можете перевести на русский текст ошибки так и скажите. А еще неплохо было бы узнать назначение Sendinput и способы работы с этим.
Romancaw (2011-10-15 12:00:00) [2]Вот в чем загвоздка:
var
Pos: TPoint;
Target: HWND;
...
if not GetCursorPos(Pos) then
RaiseLastOSError;
Target := WindowFromPoint(Pos);
if Target<>0 then
Sendinput(Edit1.Text);
Кода даже не компилируется
Омлет (2011-10-15 11:47:00) [3]> а просто то, которое активно.
А кто, по-вашему, принимает сообщения в результате Sendinput? Активное окно и принимает. Я, честно, не понимаю, в чем у вас загвоздка.
Romancaw (2011-10-15 11:07:00) [4]С кодом можете помочь?
Тут нужно что бы в фокусе было не конкретное окно, а просто то, которое активно.
Rouse_ (2011-10-15 03:34:00) [5]Установить фокус на оно ввода и выполнить Sendinput
| |
