Как программно нажать клавишу

Автор: Den is Com

Осталось на руке всего три пальца...

К сожалению работает хорошо, только когда фокус у вызывающего окна, в противном случае может глючить

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_SCROLL);
SetKey(VK_CAPITAL);

Недавно добавленные исходники
• Animation Loaders 915 • DeLiKaTeS Tetris (Тетрис) 5 864 • TDictionary Custom Sort 7 810 • Fast Watermark Sources 7 484 • 3D Designer 10 719 • Sik Screen Capture 8 038 • Patch Maker 8 243 • Айболит (remote control) 8 295 • ListBox Drag & Drop 7 109 • Доска для игры Реверси 100 805 • Графические эффекты 8 363 • Рисование по маске 7 736 • Перетаскивание изображений 6 337 • Canvas Drawing 6 708 • Рисование Луны 6 641 • Поворот изображения 5 777 • Рисование стержней 4 719 • Paint on Shape 3 422 • Генератор кроссвордов 4 407 • Головоломка Paletto 3 552 • Теорема Монжа об окружностях 4 351 • Пазл Numbrix 2 817 • Заборы и коммивояжеры 3 767 • Игра HIP 2 538 • Игра Go (Го) 2 539 • Симулятор лифта 2 933 • Программа укладки плитки 2 359 • Генератор лабиринта 3 108 • Проверка числового ввода 2 596 • HEX View 2 999