FIND OUT IF THE CAPS LOCK IS ON

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;

comments