Lautstärke von PC ändern ?

[Delphiturbo]

Hallo

mit dem Code kann ich zwar den Ton hoch und leiser machen, aber
wenn ich die Lautstärke danach anschaue, dann finde ich die alte Position
immer die selbe, egal ob ich den Scrollbar Maximum oder Minimum mache !

Ich möchte gerne, dass die Lautstärke hier auch geändert werden
http://www.mediaculture-online.de/up...autstaerke.gif

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  LeftVolume:Word;
  RightVolume:Word;
begin
  LeftVolume:=ScrollBar1.Position;// max is 65535
  RightVolume:=ScrollBar1.Position;// 
  SetWaveVolume( MakeLong( ScrollBar1.Position,ScrollBar1.Position));
end;