Delphi dicas

"ligando" as teclas numlock, capslock e scrolllock

{A função API do Windows GetKeyboardstate copia o status

das 256 teclas virtuais para o buffer especificado. O status

das teclas (VK_NUMLOCK, VK_CAPITAL, VK_SCROLL) pode ser mudado

com a função SetKeyboardState.}



var

myKeys : TKeyboardState;

begin

        GetKeyboardState(myKeys);

        myKeys[VK_Numlock] := 1;

        SetKeyboardState(myKeys);

end;



{O código acima "liga" a tecla Num Lock.}



{O status de qualquer das teclas pode ser

verificado com a função GetKeyState.}



GetKeyState(VK_NUMLOCK);



{Retorna 1 se "ligado", 0 se não.}