Delphi ile CapsLock ve Numlock tuşlarını açıp-kapama

CapsLock ve Numlock tuşlarını açıp-kapama


procedure TMyForm.Button1Click(Sender: TObject);
Var
KeyState : TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_CAPITAL] = 0) then
KeyState[VK_CAPITAL] := 1
else
KeyState[VK_CAPITAL] := 0;
SetKeyboardState(KeyState);
end;

Numlock tuşu için VK_CAPITAL yerine VK_NUMLOCK yazınız.
Kolay gelsin