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

Code:

Function SetMouseSpeed ( NewSpeed : Integer ) : Boolean;

{©Drkb v.3}

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;