Wave Lautstärke in Prozent angeben

[Nils_13]

Hi,

ich lass mir in zwei Labels die Wave-Lautstärke per

Delphi-Quellcode:

procedure TForm1.GetVolume(var volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  volL:= 0;
  volR:= 0;
  // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
  // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  // get volume
  waveOutGetVolume(hWO, @vol);
  volL:= vol and $FFFF;
  volR:= vol shr 16;
  waveOutClose(hWO);
end;  

procedure TForm1.ButtonClick;
var VolLi, VolRe: Word;
begin
  // volume
  GetVolume(VolLi,VolRe);

  vollabel.Caption:=IntToStr(VolLi);
  vollabel2.Caption:=IntToStr(VolRe);
end;

ausgeben. Nur wie wandle ich das jetzt in Prozent um ?