Как помигать Scroll Lock
Как помигать Scroll Lock
Как помигать Scroll Lock procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event(VK_SCROLL, 0, 0, 0); keybd_event(VK_SCROLL, 0, vk_up, 0); end; ++++++++++++++++++++++++++++ procedure TForm1.Timer1Timer(Sender: TObject); begin keybd_event(VK_SCROLL, MapVirtualKey(VK_SCROLL, 0) , 0, 0); keybd_event(VK_SCROLL, MapVirtualKey(VK_SCROLL, 0), vk_up, 0); end;
