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;
Ali Yazal
1987'de Ankara'da dünyaya geldi. Küçük yaşlarda iken bilgisayar dünyasına adımını attı. Yaşın önemi yok dercesine yurtiçi ve yurtdışı programlar hazırladı. Halen bilgisayar programcısı olarak Ankara'da web programcılığı ile ilgili çalışmalarına devam ediyor.
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