Windows - como aumentar o retardo (delay) de repeticao do teclado

Top  Previous  Next

// Veja como aumentar o retardo (Delay) de repetição do teclado usando 

// chamadas delphi à API do windows responsável por esse feature.

 

procedure TForm1.Button1Click(Sender: TObject);

var Tempo:integer;

begin

   Tempo := 0{0, 1, 2 -  Rapido -> Lento }

   SystemParametersInfo(SPI_SetKeyboardDelay,Tempo,NIL,SPIF_SendWinIniChange);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var Tempo : integer;

begin

   SystemParametersInfo(SPI_GetKeyboardDelay,0,@Tempo,0);

   ShowMessage( IntToStr(Tempo) );

end;