Buscar por:

Alterar a taxa de repetição do teclado

Código

ALTERAR A TAXA DE REPETIÇÃO DO TECLADO

Veja como aumentar a taxa de repetição do teclado usando chamadas delphi à API do windows responsável por esse feature.

// Modifica a taxa de repeticao

procedure TForm1.Button1Click(Sender: TObject);

var Tempo:dword;

begin

   Tempo := 31; {De 0 a 31}

   SystemParametersInfo(SPI_SetKeyboardSpeed,Tempo,NIL,SPIF_SendWinIniChange);

end;

// Lê a taxa de repeticao

procedure TForm1.Button2Click(Sender: TObject);

var Tempo : Dword;

begin

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

   ShowMessage( IntToStr(Tempo) );

end;