Mega Code Archive

 

Categories / Delphi / Games

 

Klavye yenileme hızını belirleme

procedure TForm1.Button1Click(Sender: TObject); begin SystemParametersInfo(SPI_SETKEYBOARDSPEED,0,nil,SPIF_SENDCHANGE); //En Düşük end; procedure TForm1.Button2Click(Sender: TObject); begin SystemParametersInfo(SPI_SETKEYBOARDSPEED,50,nil,SPIF_SENDCHANGE); //En Yüksek end;