Function SetMouseSpeed ( NewSpeed : Integer ) : Boolean; begin Result := SystemParametersInfo(SPI_SETMOUSESPEED, 1, Pointer(NewSpeed), SPIF_SENDCHANGE ); End; Function GetMouseSpeed : Integer; Var Int : Integer; begin SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Int, SPIF_SENDCHANGE ); Result := Int; End;