マウスの移動速度パラメータを表示/設定します。
SystemParametersInfoというのはコントロールパネルの主な機能を
もっているAPIの様です。
(紅月　燐火さん TERRYさんご助言ありがとうございました。)

フォーム上に、SpinEdit 3個　Label 3個、ボタン2つ配置して下さい。




procedure TForm1.Button1Click(Sender: TObject);
var
 NewMouse: array[0..2]of LongInt;
//最速が[4,6,2]、中速が[1,4,0]、最低速が[0,0,0]
begin
   NewMouse[0] := SpinEdit1.value;
   NewMouse[1] := SpinEdit2.value;
   NewMouse[2] := SpinEdit3.value;
   SystemParametersInfo(SPI_SETMOUSE, 0, @NewMouse,
                        SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   CurrMouse: array[0..2]of LongInt;
begin
   SystemParametersInfo(SPI_GETMOUSE, 0, @CurrMouse,0);
   Label1.Caption:=IntToStr(CurrMouse[0]);
   Label2.Caption:=IntToStr(CurrMouse[1]);
   Label3.Caption:=IntToStr(CurrMouse[2]);
end;

☆☆☆　　かわいいコードにゃ旅をさせよう　いざサンプル蔵へ!!　☆☆☆
                                 99/01/20(水) 01:12 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。