Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Программно нажать комбинацию клавиш [D7, XP]


worldmen ©   (2008-10-28 09:06:00) 

Программно нажать одну клавишу я могу. Делаю так:

procedure TForm1.SetKey(Key:Integer);
begin  // нажимаем кнопку на клавиатуре
 keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
 keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
 keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;
....
SetKey(VK_F2);            // нажимаем клавишу F2

А как нажать комбинацию клавиш, например Alt+F1, Ctrl+F1


Leonid Troyanovsky   (2008-10-28 21:58:00) [1]


> worldmen   (28.10.08 09:06)  

> Программно нажать одну клавишу я могу. Делаю так:

А объяснить зачем 3 keybd_event можешь?

--
Regards, LVT.


{RASkov}   (2008-10-28 10:21:00) [2]

Так же.... Нажать одну, затем другую - потом обе отпустить...


Наверх

Титульная страница Поиск, карта сайта Написать письмо