Prueba con éste codigo (no lo he probado).
Código Delphi
[-]
var
waveCaps: TWaveOutCaps;
Volume: DWORD;
begin
waveOutGetDevCaps(0, @waveCaps, SizeOf(waveCaps));
if (waveCaps.dwSupport and WAVECAPS_VOLUME <> 0) then begin
waveOutGetVolume(0, @Volume);
waveOutSetVolume(0, $F000F000);
end;