1: 2: 3: 4: 5: 6:
var Speed: Integer; begin Speed := 15; SystemParametersInfo(SPI_SETMOUSESPEED, 1, Pointer(Speed), SPIF_SENDCHANGE or SPIF_UPDATEINIFILE); end;