マウスの速度を変更するには

解決

squid 2005-06-29 04:10:48 No: 15994

マウスの速度を変更しようとしています。
(当方WindowsXPです)
速度の取得はうまく動作しましたが
設定となるとうまく動作しません。
何がおかしいのか教えて下さい。

procedure TForm1.Button1Click(Sender: TObject);
var
MouseSpeed:LongInt;
begin
//設定
MouseSpeed:=10;
SystemParametersInfo(SPI_SETMOUSESPEED,0,@MouseSpeed,SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
MouseSpeed:LongInt;
begin
//取得
SystemParametersInfo(SPI_GETMOUSESPEED,0,@MouseSpeed,0);
ShowMessage(InttoStr(MouseSpeed));
end;

end.

anone 2005-06-29 04:23:03 No: 15995

> @MouseSpeed

pointer(MouseSpeed)

というふうにキャストしてね

squid 2005-06-29 04:58:21 No: 15996

動きました感激です。
anoneさん、ありがとうございました。