Tuesday, March 1, 2011

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;

1 comments:

Anonymous said...

I think the "0 <>" is redundant and you can just do:
Result := (GetKeyState(VK_CAPITAL) and $01);

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum