|
|
11-21-2006, 03:49 PM
|
#1 (permalink) |
|
Yeni Üye
 Üyelik tarihi: Aug 2005
Nerden: Kahramanmaraş
Mesajlar: 24
İtibar Gücü: 0
 |
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 |
|
       
|
 |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
| Donanım forumu - oyun - gta - oyun hileleri - oyun - voip - eğlence |
 |
Normal
