Club Builder

[Yamir]

Por favor necesito saber como controlarle volumen al TMediaPlayer (bajar y subirlo)

[_Leo]

Hola Yamir:

La manera mas sencilla que se me ocurre es usando las funciones 'waveOutSetVolume' y 'waveOutGetVolume' o bien las funciones 'midiOutSetVolume' y 'midiOutGetVolume' si es para MIDI...

Por ejemplo, añadimos un TTrackBar (TrackBar1) al Form con la propiedad Orientation a 'trVertical'. El código siguiente en el constructor del Form:

  // Tomamos el estado del volumen al comenzar
  // el programa para actualizar el TrackBar
  DWORD Volumen;
  waveOutGetVolume(0, &Volumen);
  TrackBar1->Max = 0xFFFF;
  TrackBar1->Position = 0xFFFF - (Volumen & 0xFFFF);

...y en el evento OnChange del TrackBar:

  WORD Volumen = 0xFFFF - TrackBar1->Position;
  // MAKELONG(Canal Izquierdo, Canal Derecho)
  waveOutSetVolume(0, MAKELONG(Volumen, Volumen));

Saludos.
_Leo