Советы по Delphi
Как программно нажать клавишу
Пришло от читателя письмо:
// для WINNT
К сожалению работает хорошо, только когда фокус у вызывающего окна, в противном случае может глючить
|
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); |
Den is Com [000819]
