Experts Exchange connects you with the people and services you need so you can get back to work.

Numlock & Caps lock (Easy)

How can i check the state of Numlock & Caps lock keys?

Thanks!!

dia050398

Asked: 1998-08-08

Advertise Here

Delphi

1 Solution

LVL 8

ZifNabCommented: 1998-08-08

Hi dia,

function LowOrderBitSet( Value: integer ): boolean;
begin
Result := (Value and 1 > 0);
end;

function CapsLock : boolean;
begin
if LowOrderBitSet(GetKeyState(VK_CAPITAL))then Result := True
else Result := False;
end;

function InsertOn: boolean;
{ Returns the status of the Insert key. }
begin
if LowOrderBitSet(GetKeyState(VK_INSERT))then Result := True
else Result := False;
end;

function NumLock : boolean;
begin
if LowOrderBitSet(GetKeyState(VK_NUMLOCK))then Result := True
else Result := False;
end;

function ScrollLock : boolean;
begin
if LowOrderBitSet(GetKeyState(VK_SCROLL))then Result := True
else Result := False;
end;

This is a way.

Regards, Zif.