Here's a function you can use to find out if the CAPS LOCK is on:
function IsCapsLockOn : boolean; begin Result := 0 <> (GetKeyState(VK_CAPITAL) and $01); end;
Here's a function you can use to find out if the CAPS LOCK is on:
function IsCapsLockOn : boolean; begin Result := 0 <> (GetKeyState(VK_CAPITAL) and $01); end;