Código Delphi [-] if GetKeyState(VK_CAPITAL) and $01 <> 0 then ShowMessage('Prendido') else ShowMessage('Apagado')
if GetKeyState(VK_CAPITAL) and $01 <> 0 then ShowMessage('Prendido') else ShowMessage('Apagado')