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

Автор: 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 685 • DeLiKaTeS Tetris (Тетрис) 5 691 • TDictionary Custom Sort 7 648 • Fast Watermark Sources 7 336 • 3D Designer 10 545 • Sik Screen Capture 7 862 • Patch Maker 8 082 • Айболит (remote control) 8 146 • ListBox Drag & Drop 6 940 • Доска для игры Реверси 100 140 • Графические эффекты 8 204 • Рисование по маске 7 603 • Перетаскивание изображений 6 205 • Canvas Drawing 6 573 • Рисование Луны 6 494 • Поворот изображения 5 677 • Рисование стержней 4 599 • Paint on Shape 3 296 • Генератор кроссвордов 4 284 • Головоломка Paletto 3 425 • Теорема Монжа об окружностях 4 243 • Пазл Numbrix 2 752 • Заборы и коммивояжеры 3 657 • Игра HIP 2 463 • Игра Go (Го) 2 445 • Симулятор лифта 2 857 • Программа укладки плитки 2 293 • Генератор лабиринта 3 015 • Проверка числового ввода 2 515 • HEX View 2 922