Código PHP:
function TPrincipal.GetWaveVolume(var LVol: DWORD; var RVol: DWORD): Boolean;
var
WaveOutCaps: TWAVEOUTCAPS;
Volume: DWORD;
begin
Result := False;
if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf
if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
begin
Result := WaveOutGetVolume(-1, @Volume) = MMSYSERR_NOERROR;
//Result := WaveOutGetVolume(WAVE_MAPPER, @Volume) = MMSYSERR_NOERROR;
LVol := LoWord(Volume);
RVol := HiWord(Volume);
end;
end;
en esta parte me salta error, mas explicito en: if WaveOutGetDevCaps
esta funcion como la otra de set la llamo desde
procedure TPrincipal.TrackBar11Change(Sender: TObject);
me explico??