General information
Category:
Windows API functions
Hi, just to share a solution:
**************************************************************
local lnScanCode
lnScanCode = 33
declare integer ToAscii IN user32 integer uVirtKey, integer uScanCode, string @lpKeyState, string @lpChar, integer uFlags
*!* declare integer GetKeyboardState in user32 string @lpKeyState
declare integer MapVirtualKey in user32 integer uCode, integer uMapType
local lcKeyState, lcChar
lcKeyState = chr(0) && although it should be something like =GetKeyboardState(@lcKeyState)
lcChar = chr(0)
if ToAscii(MapVirtualKey(lnScanCode,1), 0, @lcKeyState, @lcChar, 0) = 1
? lcChar
endif
***************************************************************
Mario
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only