Определить состояние CapsLock
Эта программа определяет, горит ли CapsLock. procedure TForm1.Timer1Timer(Sender: TObject);begin
if GetKeyState(VK_CAPITAL) and 1 = 0
then Form1.Caption := 'Caps lock не горит'
else Form1.Caption := 'Caps lock горит';
end;
