www.FiveTechSoft.com
https://fivetechsupport.com/forums/
Otto wrote:Hello,
this is what I would need for my application.
Thanks in advance
Otto
i have a 310 Miix and it have 64 Bit OSSilvio.Falconi wrote:I have Lenovo MIIX320 and the test sample of Navarro not run here
I cannot see the kyboard of windows
nothing with osk or oskb
Code: Select all | Expand
METHOD DXE_KbWin:SendKey( cKeys, lShift, lCtrl, lAlt, lAltGR )
LOCAL i := 0
LOCAL nCode := 0
DEFAULT lShift TO .F.
DEFAULT lCtrl TO .F.
DEFAULT lAlt TO .F.
DEFAULT lAltGR TO .F.
IF cKeys # NIL
::SetTheFocus() // App <-> OSK
IF VALTYPE( cKeys ) == "C"
// for each Key in String
FOR i := 1 TO LEN( cKeys )
// single key
nCode := GetVirtualKeyCode( cKeys[ i ], @lShift, @lCtrl, @lAlt, @lAltGR )
IF lShift
keybd_event( VK_SHIFT, 0, 0, 0 )
ENDIF
IF lCtrl
keybd_event( VK_CONTROL, 0, 0, 0 )
ENDIF
IF lAlt
keybd_event( VK_MENU, 0, 0, 0 )
ENDIF
IF lAltGR
keybd_event( VK_RMENU, 0, 0, 0 )
ENDIF
// now send "the" key
keybd_event( nCode, 0, 0, 0 )
keybd_event( nCode, 0, KEYEVENTF_KEYUP, 0 )
// clean up
IF lAltGR
keybd_event( VK_RMENU, 0, KEYEVENTF_KEYUP, 0 )
lAltGR := .F.
ENDIF
IF lAlt
keybd_event( VK_MENU, 0, KEYEVENTF_KEYUP, 0 )
lAlt := .F.
ENDIF
IF lCtrl
keybd_event( VK_CONTROL, 0, KEYEVENTF_KEYUP, 0 )
lCtrl := .F.
ENDIF
IF lShift
keybd_event( VK_SHIFT, 0, KEYEVENTF_KEYUP, 0 )
lShift := .F.
ENDIF
NEXT
ELSEIF VALTYPE( cKeys ) == "N" // NumPad ( hide/show )
...
Code: Select all | Expand
FUNCTION GetVirtualKeyCode( cChar, lShift, lCtrl, lAlt, lAltGR )
LOCAL nCode
LOCAL nHiByte
nCode := VkKeyScanA( ASC( cChar ) )
nHiByte := HiByte( nCode )
lShift := ( nHiByte = 1 )
lCtrl := ( nHiByte = 2 )
lAlt := ( nHiByte = 4 )
lAltGR := ( nHiByte = 6 )
RETURN LoByte( nCode )
DLLFUNCTION VkKeyScanA( cChar ) USING STDCALL FROM USER32.DLL