Сообщество Чайников

Вопрос

Как помигать 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;

Leonid Troyanovsky