К сожалению работает хорошо, только когда фокус у вызывающего окна, в противном случае может глючить
procedureTForm1.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);