Information générale
Catégorie:
Fonctions Windows API
Versions des environnements
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
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement