1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
procedure signe(Sender: TObject);
begin
keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);
keybd_event(VK_NUMPAD1, MapvirtualKey(VK_NUMPAD1, 0), 0, 0);
keybd_event(VK_NUMPAD1, MapvirtualKey(VK_NUMPAD1, 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_NUMPAD7, MapvirtualKey(VK_NUMPAD7, 0), 0, 0);
keybd_event(VK_NUMPAD7, MapvirtualKey(VK_NUMPAD7, 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_NUMPAD2, MapvirtualKey(VK_NUMPAD2, 0), 0, 0);
keybd_event(VK_NUMPAD2, MapvirtualKey(VK_NUMPAD2, 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);
end; |
Partager