waveOutSetVolume aus mmsystem

[DataCool]

Ich meine nicht den Rückgabewert der Funktion, die Werte sind mir bekannt !

ich möchte anhand der aktuelle Lautstärke die Position meiner TrackBar setzen.

Jetziger Code :

Delphi-Quellcode:

function TTWKom.getVolume: Longint;
var 
   v       : pdword;
   res     : mmresult;
begin
   Result := fVolume;
   if active then begin
      res := waveOutGetVolume(acmOut.FWaveOutHandle, @v);
      if Integer(res) <> 0 then
         result := 0
      else
        result := Integer(v);
   end;
end;

Leider funktioniert das nicht richtig;
Ich denke mal das der Wert in V auch irgentwie umgerechnet werden muß mit shl, aber wie ?

Gruß Data

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]