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;
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;