cTab est une chaîne fixe sur 256

sVal est une chaîne

 

AppelDLL32("USER32", "GetKeyboardState", &cTab)

 

SI cTab[[21]] <> Caract(0) ALORS

       Trace("Caps lock activé")

SINON

       Trace("Caps lock désactivé")

FIN

 

Trace(sVal)