Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2008, 11:28   #1
Yuran
Форумчанин
 
Регистрация: 18.02.2008
Сообщений: 198
По умолчанию как послать в окно сообщение о нажатии буквенных клавишь?

Проклятое приложение не идентифицируется, но при его запуске ТЕдит на нем получает фокус. Теперь мне нужно "нажать" три кнопки. Как это сделать?

SendKey не получается
Yuran вне форума Ответить с цитированием
Старый 23.06.2008, 11:50   #2
hoza_syl
Форумчанин
 
Аватар для hoza_syl
 
Регистрация: 23.05.2008
Сообщений: 219
По умолчанию

Попробуй WM_CHAR
The Revolution is Now!
hoza_syl вне форума Ответить с цитированием
Старый 23.06.2008, 11:57   #3
NikLik
Форумчанин
 
Аватар для NikLik
 
Регистрация: 22.11.2007
Сообщений: 224
По умолчанию

Код:
procedure tform1.press(chr:char);
begin
 keybd_event(Ord(chr), MapVirtualKey(Ord(chr), 0), 0, 0);
 keybd_event(Ord(chr), MapVirtualKey(Ord(chr), 0), KEYEVENTF_KEYUP, 0);
end;
если нужно нажать, например, ctrl+a, то делаешь так:
Код:
 keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
 keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), 0, 0);
 keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), KEYEVENTF_KEYUP, 0);
 keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);

Последний раз редактировалось rpy3uH; 25.07.2008 в 21:46.
NikLik вне форума Ответить с цитированием
Старый 23.06.2008, 12:10   #4
Yuran
Форумчанин
 
Регистрация: 18.02.2008
Сообщений: 198
По умолчанию

Спасибо! Получилось!
Yuran вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нажатие клавишь Slash Общие вопросы Delphi 2 06.06.2008 08:15
Как послать команду AngelOfDeath Работа с сетью в Delphi 2 10.04.2008 08:23
Нажатие клавишь мыши L_M Помощь студентам 2 26.02.2008 01:15
«Окно+символ». Создать класс, представляющий окно в текстовом режиме. RustreX Паскаль, Turbo Pascal, PascalABC.NET 1 11.11.2007 19:28
послать сообщение кнопке Fireleo Win Api 7 06.08.2007 11:14