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

CapsLock ve Numlock tuşlarını açıp-kapamanız için gereken kodlar.


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.

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

valla ii olmuşş...
Usta bu kodun visual basic 6 ' ya çevrilmiş hali varmı yazarsan sevinirim.

Yukarı Git