Mouse Acceleration

hmm men er tweakup.dk havde en artikkel om det ellers var det www.fedespil.dk

ellers har du jo mulighed for at slå det fra i driveren for din mus.

*mener :)

Hvis du vil gøre så den ikke kan bevæge sig, kan du bruge:

function MouseProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if (nCode = HC_ACTION) and (wParam = 512) then
    Result := 1
  else
    Result := CallNextHookEx(MouseHook, nCode, wParam, lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  WH_MOUSE_LL = 14;
begin
    MouseHook := SetWindowsHookEx(WH_MOUSE_LL, MouseProc, HInstance, 0);
end;

og:

UnhookWindowsHookEx(MouseHook);

Til at deaktivere det igen.

Du skal lige sætte MouseHook: HHOOK; under var:

var
  Form1: TForm1;
  MouseHook: HHOOK;

I registreringsdatabasen kan du læse indstilliingerne for musen, hvis du ønsker at ændre dem, kan du jo benytte writestring i stedet for readstring...

uses Registry

var
  Registry: TRegistry;
  Result: string;
begin
  Registry:=TRegistry.Create;
  Registry.RootKey:=HKEY_CURRENT_USER;
  Registry.OpenKey('Control Panel\Mouse',False);
  Result :=Registry.ReadString('MouseSpeed');
  Registry.Free;
end;

Hvis Result = 1, så er den sat til normal - hvis Result = 2, så bliver den kvadreret (tror jeg) - men der er jo også andre indstillinger for musen, såsom MouseTreshold1 og 2...

En bedre forklaring af accelerationen kan du jo læse hos Microsoft selv: http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q149/2/28.asp&NoWebContent=1

Ups - det skulle vist have været et svar