A
B
C
Ç
D
E
F
G
Ğ
H
I
İ
J
K
L
M
N
O
P
R
S
Ş
T
U
Ü
V
Y
Z
Q
W
X
+ Ekle
Led Kontrolleri

Led Kontrolleri
Kod:

procedure TForm1.Timer1Timer(Sender: TObject);
function SetState(Key: Integer; Value: Boolean): Boolean;
begin
  if Odd(GetAsyncKeyState(Key)) <> Value then
  begin
    keybd_event(Key, MapVirtualkey(Key, 0), KEYEVENTF_EXTENDEDKEY, 0);
    keybd_event(Key, MapVirtualkey(Key, 0), KEYEVENTF_EXTENDEDKEY or
      KEYEVENTF_KEYUP, 0);
  end;
end;


begin
SetState(VK_NUMLOCK, True);
  Sleep(50);
  SetState(VK_NUMLOCK, False);
  Sleep(50);
  SetState(VK_CAPITAL, True);
  Sleep(50);
  SetState(VK_CAPITAL, False);
  Sleep(50);
  SetState(VK_SCROLL, True);
  Sleep(50);
  SetState(VK_SCROLL, False);
  Sleep(50);



  SetState(VK_CAPITAL, True);
  Sleep(50);
  SetState(VK_CAPITAL, False);
  Sleep(50);



  end;
//*** Mesela bir timer ın event ına bu kodu yazın. Bilgisayarda belirli bir süre
//***hareket olmadığında bu timer ı aktif hale getirin.
//*** Klavyedeki ışıklar beirli bir düzenle yanıp sönmeye başlayacaktır :-))
//***Hadi kolay gelsin...
  Ad Soyad
  Yorum