Problema SystemParametersInfo

[diegofhernando]

Que tal foristas, en esta ocasion tengo una duda y a la vez problema con un api de windows, tengo el siguiente codigo que teoricamente deberia permitirme establecer la velocidad del puntero del raton, lo malo es que no hace nada:

Código Delphi [-]
type
TMouseSpeed = 1..20;
.
.
.
var
  s: TMouseSpeed;
begin
s:= 1; // se supone que esto establece la velocidad a lo mas minimo, ya
         //probe con los demas valores de 1 a 20 segun la documentacion que 
         //encontre al respecto
SystemParametersInfo(SPI_SETMOUSESPEED, 0, @s, UpdateFlag);
end;

Como siempre, desde ya agradezco su tiempo.

Salu2

[dec]

Hola,

De la ayuda de la función SystemParametersInfo():

Sets the current mouse speed. The pvParam parameter is an integer between 1 (slowest) and 20 (fastest). A value of 10 is the default. This value is typically set using the mouse control panel application.

No estoy seguro, pero, tal vez debas pasar un número entero (entre 1 y 20) en lugar de "@s". Igual ni esto funciona, pero... por otro lado buscando en Google parece ser que esta función (en este caso) no va bien sino en Windows XP... esto último lo he leído aquí. Aquí está la búsqueda en Google.

[diegofhernando]

Gracias Dec, efectivamente si se pasa el entero como parametro a la funcion se genera un error, debido a que esta espera un puntero... segun leo en el link que me prestas deberia funcionar en winXP pero, precisamente estoy compilando en este sistema operativo...

Salu2 agradecidos

[roman]

Intenta así:

Código Delphi [-]
SystemParametersInfo(SPI_SETMOUSESPEED, 0, PInteger(1), SPIF_SENDCHANGE);

// Saludos

[diegofhernando]

Perfecto! esa era la solucion roman, muchas gracias

Salud2

[dec]

Hola,

Buen apunte Román.