[angvelem]

Одной строкой не получится, нужно играться с командами auxGetVolume, auxSetVolume.

Код:

type
  TVolumeType = record
    case Integer of
      0: (LongVolume: Longint);
      1: (LeftVolume, RightVolume : Word);
    end;

var
  FSound	: Integer;

procedure VolumeInit;
var
  AuxCaps : TAuxCaps;
  I          : Integer;
begin
  FSound := -1;
  for I := 0 to auxGetNumDevs - 1 do
  begin
    auxGetDevCaps(I, @AuxCaps, SizeOf(AuxCaps));
    if ((AuxCaps.dwSupport and AUXCAPS_VOLUME) <> 0) and
      ((AuxCaps.wTechnology and  AUXCAPS_CDAUDIO <> 0)) then
    begin
      FSound := I;
      Break;
    end;
  end;
end;

procedure SetVolume(Volume : Byte);
var
  Vol : TVolumeType;
begin
  Vol.LeftVolume := Volume shl 8;
  Vol.RightVolume := Vol.LeftVolume;

  auxSetVolume(FSound, Vol.LongVolume);
end;