codebeispiel für systemparametersinfo

[markus lemcke]

hallo,

der befehl systemparametersinfo verwirrt mich.
das sind 5 seiten nur parametererklärung.

kann jemand ein beispiel mir schreiben für spi_mouse
und setkeyboarddelay!

gruß markus

[Hagen Reddmann]

Hi

<pre>

var
MouseData: packed record
Speed: Integer;
Threshold1: Integer;
Threshold2: Integer;
end;
begin
if SystemParametersInfo(SPI_SETMOUSE, 0, @MouseData, SPIF_SENDWININICHANGE) then
MessageBox('alles ok');
end;

</pre>

Ob die Parameter in MouseData auch korrekt sind weiß ich nicht, und beachte auch das z.B. mein LogiTech Mouse Treiber bei SPI_GETMOUSE immer 0 zurückgibt und mit SPI_SETMOUSE sich überhaupt nichts ändert.

Gruß Hage

[markus lemcke]

hi hagen,

werte setzen geht genauso oder?

gruß

marku

[Hagen Reddmann]

SPI_<b>SET</b>MOUSE steht doch im Beispiel ?

[markus lemcke]

hallo hagen,

folgendes habe ich probiert: <br>

procedure TForm1.Button1Click(Sender: TObject);<br>
var<br>
MouseData: packed record<br>
Speed: Integer;<br>
Threshold1: Integer;<br>
Threshold2: Integer;<br>
end;<br>
begin<br>
mousedata.Speed := 500;<br>
MouseData.Threshold1 := 50;<br>
MouseData.Threshold2 := 50;<br>
SystemParametersInfo(SPI_SETMOUSE, 0, @MouseData, <br>SPIF_SENDWININICHANGE);<br>
<br>
end;<br>

zeigt aber keine wirkung!

was ist verkehrt? was bedeutet Threshold2?

gruß

marku

[markus lemcke]

hallo hagen,

was meinst du dazu?

Hallo Markus, <br>

schau Dir mal die beiden Routinen an: <br>

procedure TForm1.Button1Click(Sender: TObject); <br>
var MouseData: Array[0..2] OF Integer; <br>
begin <br>
SystemParametersInfo(SPI_GETMOUSE, 0, @MouseData, 0); <br>
ShowMessage(intToStr(MouseData[0]) + ' - ' + intToStr(MouseData[1]) <br> + ' - ' + IntToStr(MouseData[2])); <br>
<br>
end;<br>
<br>
procedure TForm1.Button2Click(Sender: TObject); <br>
var MouseData: Array[0..2] OF Integer; <br>
begin <br>
<br>
MouseData[0] := 1000; <br>
MouseData[1] := 1000; <br>
MouseData[2] := 10000; <br>
SystemParametersInfo(SPI_SETMOUSE, 0, @MouseData, <br>SPIF_SENDWININICHANGE OR SPIF_UPDATEINIFILE); <br>
<br>
end;<br>

Mit der ersten Routine kann man die aktuellen Werte auslesen, mit der zweiten setzen. Wenn man jetzt nur mal das Auslesen nutzt, wirst Du was feststellen. Die Werte werden durch die Mausoptionen der Systemsteuerung gar nicht gesetzt. Als ich habe bei mir mal die Maus schneller gemacht und die Werte, die ich auslesen konnte, blieben konstand.

Ich denk mal, hier sind wir einfach auf der falschen Fährte. Leider weiß ich jetzt auch keinen Ansatz...

Trotzdem schöne Grüße, Mario Noack

gruß

marku

[Hagen Reddmann]

Korrekt, habe ich aber oben schon angedeutet. Meine LogiTech Mouse unerstützt den Kram auch nicht.
Frag mich bitte nicht warum das so ist, frag Microsoft oder LogiTech, die haben den Mist verzapft

[markus lemcke]

ich glaube ich bin auf der komplett falschen pfärte!!<br>
ich muss an der tastenwiederholsequenz schrauben, aber so dass andere programme davon nicht betroffen sind.... wie geht das?<br>

gruß

marku