[Alegun]

Не оно?

Код:

Function GetMouseSpeed : Integer;
Var
 Int: Integer;
begin
 SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Int, SPIF_SENDCHANGE );
 Result:= Int;
End;