{"id":62,"date":"2007-05-11T21:19:26","date_gmt":"2007-05-11T19:19:26","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/postkey32ex\/"},"modified":"2007-05-11T21:19:27","modified_gmt":"2007-05-11T19:19:27","slug":"postkey32ex","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/postkey32ex\/","title":{"rendered":"PostKey32ex"},"content":{"rendered":"

> I have build an application who displays a hebrew keyboard, and I use
\n> a combination of six TToolBars with left or right click mouse events
\n> for displaying 153 possible characters.
\n>
\n> The following lines (with *key* as character code)
\n>
\n> keybd_event( key, MapVirtualKey( key, 0), 0, 0 );
\n> keybd_event( key, MapVirtualKey( key, 0), KEYEVENTF_KEYUP, 0 );
\n>
\n> don’t permit the display of each possible characters, because the code
\n> character range is 33..227 and some keys are reserved by the system.
\n> Is it a way to bypass the problem and display all the characters
\n> I need ?<\/em><\/p>\n

The SendText function below should be able to manufacture the correct keyboard events for each character. But this requires that the current thread locale is hebrew and a hebrew keyboard layout has been activated (see ActivateKeyboardLayout).<\/p>\n

[code lang=”delphi”]{************************************************************
\n* Procedure PostKeyEx32
\n*
\n* Parameters:
\n* key : virtual keycode of the key to send. For printable
\n* keys this is simply the ANSI code (Ord(character)).
\n* shift : state of the modifier keys. This is a set, so you
\n* can set several of these keys (shift, control, alt,
\n* mouse buttons) in tandem. The TShiftState type is
\n* declared in the Classes Unit.
\n* specialkey: normally this should be False. Set it to True to
\n* specify a key on the numeric keypad, for example.
\n* Description:
\n* Uses keybd_event to manufacture a series of key events matching
\n* the passed parameters. The events go to the control with focus.
\n* Note that for characters key is always the upper-case version of
\n* the character. Sending without any modifier keys will result in
\n* a lower-case character, sending it with [ssShift] will result
\n* in an upper-case character!
\n*Created: 17.7.98 by P. Below
\n************************************************************}
\nProcedure PostKeyEx32( key: Word; Const shift: TShiftState;
\n specialkey: Boolean );
\n Type
\n TShiftKeyInfo = Record
\n shift: Byte;
\n vkey : Byte;
\n End;
\n byteset = Set of 0..7;
\n Const
\n shiftkeys: Array [1..3] of TShiftKeyInfo =
\n ((shift: Ord(ssCtrl); vkey: VK_CONTROL ),
\n (shift: Ord(ssShift); vkey: VK_SHIFT ),
\n (shift: Ord(ssAlt); vkey: VK_MENU ));
\n Var
\n flag: DWORD;
\n bShift: ByteSet absolute shift;
\n i: Integer;
\n Begin
\n For i := 1 To 3 Do Begin
\n If shiftkeys[i].shift In bShift Then
\n keybd_event( shiftkeys[i].vkey,
\n MapVirtualKey(shiftkeys[i].vkey, 0),
\n 0, 0);
\n End; { For }
\n If specialkey Then
\n flag := KEYEVENTF_EXTENDEDKEY
\n Else
\n flag := 0;<\/p>\n

keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
\n flag := flag or KEYEVENTF_KEYUP;
\n keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );<\/p>\n

For i := 3 DownTo 1 Do Begin
\n If shiftkeys[i].shift In bShift Then
\n keybd_event( shiftkeys[i].vkey,
\n MapVirtualKey(shiftkeys[i].vkey, 0),
\n KEYEVENTF_KEYUP, 0);
\n End; { For }
\n End; { PostKeyEx32 }<\/p>\n

Procedure SendText( S: String );
\n Procedure SendRawCharacter( ch : Char );
\n Var
\n i: Integer;
\n numStr: String;
\n Begin
\n numStr := Format(‘%4.4d’,[Ord(ch)]);
\n keybd_event( VK_MENU, MapVirtualKey(VK_MENU, 0),
\n 0, 0);
\n for i:= 1 to Length(numStr) do
\n PostKeyEx32( VK_NUMPAD0 + Ord(numstr[i])-Ord(‘0’), [], false );
\n keybd_event( VK_MENU, MapVirtualKey(VK_MENU, 0),
\n KEYEVENTF_KEYUP, 0);
\n End;<\/p>\n

Var
\n flags: TShiftState;
\n vcode: word;
\n ret : word;
\n i, n : Integer;
\n mask : word;
\n Begin { SendText }
\n For i := 1 To Length(S) Do Begin
\n ret := VkKeyScan( S[i] );
\n If ret = $FFFF Then
\n SendRawCharacter( S[i] )
\n Else Begin
\n vcode := Lobyte( ret );
\n flags := [];
\n mask := $100;
\n For n := 1 To 3 Do Begin
\n If (ret and mask) <> 0 Then Begin
\n Case mask Of
\n $100: Include( flags, ssShift );
\n $200: Include( flags, ssCtrl );
\n $400: Include( flags, ssAlt );
\n End; { Case }
\n End; { If }
\n mask := mask shl 1;
\n End; { For }
\n PostKeyEx32( vcode, flags, false );
\n End; { Else }
\n End; { For }
\n End; { SendText }
\n[\/code] <\/p>\n

Peter Below (TeamB)<\/p>\n

[tags]Delphi, API[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"

> I have build an application who displays a hebrew keyboard, and I use > a combination of six TToolBars with left or…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[84,75],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-10","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/62"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=62"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/62\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=62"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=62"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=62"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}