[angvelem]

Смотря для чего делаешь, в библиотеке bass имеется такая функция, или:

Код:

function GetVolume: Byte ;
var
  Vol	: TVolumeType;
begin
  Vol.LongVolume := 0;
  case FDeviceType of
    dvCD..dvLineIn : auxGetVolume(FSound, @Vol.LongVolume);
    dvMidi         : midiOutGetVolume(FSound, @Vol.LongVolume);
    dvWave         : waveOutGetVolume(FSound, @Vol.LongVolume);
  end;
  GetVolume := (Vol.LeftVolume + Vol.RightVolume) shr 9;
end;