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; |