Código Delphi [-] if GetKeyState(VK_CAPITAL) and $8000 <> 0 then ShowMessage('Prsionada') else ShowMessage('Sin presionar')
if GetKeyState(VK_CAPITAL) and $8000 <> 0 then ShowMessage('Prsionada') else ShowMessage('Sin presionar')