imparator001
New member
- Katılım
- 26 Eki 2005
- Mesajlar
- 111
- Reaction score
- 0
- Puanları
- 0
//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.
devam edecek...
<bu başlığı unutmayın arkadaşlar>
<<delphiciler başlıyoruzzz!>>
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.
devam edecek...
<bu başlığı unutmayın arkadaşlar>
<<delphiciler başlıyoruzzz!>>