[Neftali [Germán.Estévez]]

Prueba con éste codigo (no lo he probado).

Código Delphi [-]
var
  waveCaps: TWaveOutCaps;
  Volume: DWORD;
begin
  {Get Device Caps}
  waveOutGetDevCaps(0, @waveCaps, SizeOf(waveCaps));
  { If Volume Control Supported }
  if (waveCaps.dwSupport and WAVECAPS_VOLUME <> 0) then begin
    waveOutGetVolume(0, @Volume);
    // Asignar volumen
    waveOutSetVolume(0, $F000F000);
    // $F000F000 => Máximo
    // $00000000 => Mínimo
    // 4 números para cada canal (izq. y der.).
  end;