не получается изменить NUM,CAps,scroll Lock

[Reds]

не получается изменить программно клавиши NUM,CAps,scroll Lock
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure SetState(key:Integer;VAlue:boolean) ;
var
KEyState:TkeyboardState;
begin
GetKEyBoardState(KeyState);
KeyState[Key]:=integer(VAlue);
SetKeyBoardState(KeyState);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Tag:=(timer1.Tag+1) mod 4;
SetState(VK_NUMLOCK,Timer1.Tag=1);
setstate(VK_SCROLL,Timer1.Tag=2);
SetState(VK_CAPITAL,TIMER1.TAG=3);
end;

[AngelOfDeath]

Используйте эти функции:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

keybd_event(VK_SCROLL,0,0,0);

keybd_event(VK_SCROLL,0,VK_UP,0);

Timer1.Enabled:=False;

Timer2.Enabled:=True;

end;



procedure TForm1.Timer2Timer(Sender: TObject);

begin

keybd_event(VK_CAPITAL,0,0,0);

keybd_event(VK_CAPITAL,0,VK_UP,0);

Timer2.Enabled:=False;

Timer3.Enabled:=True;

end;



procedure TForm1.Timer3Timer(Sender: TObject);

begin

keybd_event(VK_NUMLOCK,0,0,0);

keybd_event(VK_NUMLOCK,0,VK_UP,0);

Timer3.Enabled:=False;

Timer1.Enabled:=True;

end;