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

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

К сожалению работает хорошо, только когда фокус у вызывающего окна, в противном случае может глючить

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);

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com