Симулируем нажатие клавиш на клавиатуре

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

{PostKeyEx32 function}

 procedure

PostKeyEx32(key: Word; const

shift: TShiftState; specialkey: Boolean); {************************************************************ * Procedure PostKeyEx32 * * Parameters: * key : virtual keycode of the key to send. For printable * keys this is simply the ANSI code (Ord(character)). * shift : state of the modifier keys. This is a set, so you * can set several of these keys (shift, control, alt, * mouse buttons) in tandem. The TShiftState type is * declared in the Classes Unit. * specialkey: normally this should be False. Set it to True to * specify a key on the numeric keypad, for example. * Description: * Uses keybd_event to manufacture a series of key events matching * the passed parameters. The events go to the control with focus. * Note that for characters key is always the upper-case version of * the character. Sending without any modifier keys will result in * a lower-case character, sending it with [ssShift] will result * in an upper-case character! // Code by P. Below ************************************************************} type

TShiftKeyInfo = record

shift: Byte; vkey: Byte; end

; byteset = set

of

0..7; const

shiftkeys: array

[1..3] of

TShiftKeyInfo = ((shift: Ord(ssCtrl); vkey: VK_CONTROL), (shift: Ord(ssShift); vkey: VK_SHIFT), (shift: Ord(ssAlt); vkey: VK_MENU)); var

flag: DWORD; bShift: ByteSet absolute

shift; i: Integer; begin

for

i := 1 to

3 do

begin

if

shiftkeys[i].shift in

bShift then

keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0); end

; { For } if

specialkey then

flag := KEYEVENTF_EXTENDEDKEY else

flag := 0; keybd_event(key, MapvirtualKey(key, 0), flag, 0); flag := flag or

KEYEVENTF_KEYUP; keybd_event(key, MapvirtualKey(key, 0), flag, 0); for

i := 3 downto

1 do

begin

if

shiftkeys[i].shift in

bShift then

keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), KEYEVENTF_KEYUP, 0); end

; { For } end

; { PostKeyEx32 } // Example: procedure

TForm1.Button1Click(Sender: TObject); begin

//Pressing the Left Windows Key PostKeyEx32(VK_LWIN, [], False); //Pressing the letter D PostKeyEx32(Ord('D'), [], False); //Pressing Ctrl-Alt-C PostKeyEx32(Ord('C'), [ssctrl, ssAlt], False); end

;

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

Категории

Статьи

Советы

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