volumen para mi reproductor

[Lucass]

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

[mierda]

uso delphi 7 y yo utilizo esta funcion:

mira a ver si te sirve

Código Delphi [-]
 
procedure TForm1.SetMPVolume(MP: TMediaPlayer; Volume: Integer);
var p: MCI_DGV_SETAUDIO_PARMS; 
begin 
   { Volume: 0 - 1000 } 
   p.dwCallback := 0; 
   p.dwItem := MCI_DGV_SETAUDIO_VOLUME; 
   p.dwValue := Volume; 
   p.dwOver := 0; 
   p.lpstrAlgorithm := nil; 
   p.lpstrQuality := nil; 
   mciSendCommand(MP.DeviceID, MCI_SETAUDIO, 
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;

para llamarla

Código Delphi [-]
SetMPVolume(MediaPcanciones,(TrackBcanciones.Position)*50)

ya me cuen ... un saludo.

[Lucass]

y que seria : MCI_DGV_SETAUDIO_PARMS ¿¿

[mierda]

pos macho ... ni idea ...a mi me funciona y con eso me basta. Por lo menos de momento. suerte