Problem bei SystemParametersInfo SPI_SETWHEELSCROLLLINES

[Oliver1983]

Hi

ich habe probleme beim setzten der scrolllines fürs Mausrad!!! Eigentlich klappt es, aber es wird immer erst im Programm übernommen wenn dies neu gestartet wurde d.h. wenn ich den bildlauf von 3 auf 2 schritte verkleinere wird es erst übernommen wenn ich das programm neu gestartet habe.

hier der code

Delphi-Quellcode:

function GetNumScrollLines: Integer;
begin
  SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @Result, 0);
end;

procedure SetNumScrollLines(i: Integer);
begin
  SystemParametersInfo(SPI_SETWHEELSCROLLLINES, 0, @integer(i), 0);
end;

procedure TForm4.Button2Click(Sender: TObject);
//Var
//  dwResult: DWORD;
begin

  SystemParametersInfo(SPI_SETWHEELSCROLLLINES, integer(SpinEdit1.Value),0, SPIF_SENDCHANGE);
  SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETWHEELSCROLLLINES, 0);
  ShowMessage(IntToStr(GetNumScrollLines));

//  SendMessageTimeout ( HWND_BROADCAST , WM_SETTINGCHANGE, 0, lParam (pChar ('Environment')), SMTO_ABORTIFHUNG, 5000, dwResult );


//  SendMessage(ListBox1.Handle, WM_SETTINGCHANGE, integer(SystemParametersInfo(SPI_SETWHEELSCROLLLINES, integer(SpinEdit1.Value),0, 0)), 0);
//  SetNumScrollLines(2);
end;

habe schon viel im netz gesucht aber keine lösung gefunden

hoffe mir kann jmd. helfen

gruss olli