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

解決

squid  2005-06-29 04:10:48  No: 15994  IP: [192.*.*.*]

マウスの速度を変更しようとしています。
(当方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  IP: [192.*.*.*]

> @MouseSpeed

pointer(MouseSpeed)
 
というふうにキャストしてね

編集    削除
squid  2005-06-29 04:58:21  No: 15996  IP: [192.*.*.*]

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

編集    削除