Советы по 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]



Содержание раздела