Delphi dicas

Liga/desliga caps lock

//Declare Windows no uses



procedure CapsLock(State: boolean);

begin

        if (State and ((GetKeyState(VK_CAPITAL) and 1) = 0)) or

        ((not State) and ((GetKeyState(VK_CAPITAL) and 1) = 1)) then

        begin

                keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or 0, 0);

                keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

        end;

end;



//Usando a função

//Liga

CapsLock(true);



//Desliga

CapsLock(false);

por : Mauricio Magalhães