функции для изменения и получения чуствительности мышки

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;