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

Автор: 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);

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 120 • TDictionary Custom Sort 3 308 • Fast Watermark Sources 3 058 • 3D Designer 4 812 • Sik Screen Capture 3 309 • Patch Maker 3 525 • Айболит (remote control) 3 626 • ListBox Drag & Drop 2 987 • Доска для игры Реверси 81 506 • Графические эффекты 3 915 • Рисование по маске 3 222 • Перетаскивание изображений 2 605 • Canvas Drawing 2 728 • Рисование Луны 2 551 • Поворот изображения 2 160 • Рисование стержней 2 159 • Paint on Shape 1 563 • Генератор кроссвордов 2 222 • Головоломка Paletto 1 763 • Теорема Монжа об окружностях 2 208 • Пазл Numbrix 1 679 • Заборы и коммивояжеры 2 050 • Игра HIP 1 275 • Игра Go (Го) 1 221 • Симулятор лифта 1 468 • Программа укладки плитки 1 212 • Генератор лабиринта 1 539 • Проверка числового ввода 1 347 • HEX View 1 486 • Физический маятник 1 352