Examples Delphi

  1. Home
  2. Delphi
  3. Examples
  4. Klavyedeki ışıkları yakıp söndürüo [-caps lock -num lock -scroll lock [ışıklar yanıncada tuşlara bas
-left to right
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval:=500;
Timer1.enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
keys : TKeyboardState;
begin
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 1;
SetKeyboardState( keys );
sleep(50);
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 0;
SetKeyboardState( keys );
sleep(50);
GetKeyboardState( keys );
keys[VK_CAPITAL] := 1;
SetKeyboardState( keys );
sleep(60);
GetKeyboardState( keys );
keys[VK_CAPITAL] := 0;
SetKeyboardState( keys );
sleep(60);
GetKeyboardState( keys );
keys[VK_SCROLL] := 1;
SetKeyboardState( keys );
sleep(50);
GetKeyboardState( keys );
keys[VK_SCROLL] := 0;
sleep(5);
SetKeyboardState( keys );
GetKeyboardState( keys );
end;
----------------------------------------------------------------------
-Right to left
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval:=500;
Timer1.enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
keys : TKeyboardState;
begin
GetKeyboardState( keys );
keys[VK_SCROLL] := 1;
SetKeyboardState( keys );
sleep(5);
GetKeyboardState( keys );
keys[VK_SCROLL] := 0;
SetKeyboardState( keys );
sleep(50);
GetKeyboardState( keys );
keys[VK_CAPITAL] := 1;
SetKeyboardState( keys );
sleep(60);
GetKeyboardState( keys );
keys[VK_CAPITAL] := 0;
SetKeyboardState( keys );
sleep(60);
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 1;
SetKeyboardState( keys );
sleep(50);
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 0;
SetKeyboardState( keys );
sleep(50);
end;
-------------------------------------------------------------------------------------------------
night rider / left <>right
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval:=500;
Timer1.enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
keys : TKeyboardState;
begin
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 1;
SetKeyboardState( keys );
sleep(100);
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 0;
SetKeyboardState( keys );
sleep(100);
GetKeyboardState( keys );
keys[VK_CAPITAL] := 1;
SetKeyboardState( keys );
sleep(120);
GetKeyboardState( keys );
keys[VK_CAPITAL] := 0;
SetKeyboardState( keys );
sleep(120);
GetKeyboardState( keys );
keys[VK_SCROLL] := 1;
SetKeyboardState( keys );
sleep(100);
GetKeyboardState( keys );
keys[VK_SCROLL] := 0;
sleep(100);
SetKeyboardState( keys );
GetKeyboardState( keys );
keys[VK_CAPITAL] := 1;
SetKeyboardState( keys );
sleep(120);
GetKeyboardState( keys );
keys[VK_CAPITAL] := 0;
SetKeyboardState( keys );
sleep(120);
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 0;
SetKeyboardState( keys );
sleep(100);
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 1;
SetKeyboardState( keys );
sleep(100);
end;