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

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

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

Мягкие, пластиковые игрушки оптом - игрушки оптом. Детские игрушки. . бытовка . оборудование для запрессовки крепежа . Гладильные системы . Недвижимость в Новосибирске найти новости. Предлагаю недвижимость в Новосибирске. .