Определить состояние CapsLock 3 function IsCapsLockOn: Boolean; begin Result := 0 <> (GetKeyState(VK_CAPITAL) and $01); end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
function IsCapsLockOn: Boolean; begin Result := 0 <> (GetKeyState(VK_CAPITAL) and $01); end;