Foros Club Delphi - Calibrar el volúmen de un sonido

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Calibrar el volúmen de un sonido (https://www.clubdelphi.com/foros/showthread.php?t=31593)

metalfox6383

11-05-2006 18:38:41

Calibrar el volúmen de un sonido

Hola:

He logrado hacer que mi programa reproduzca sonidos con el siguiente comando:

PlaySound('sonido.wav', 0, SND_FILENAME or SND_ASYNC);

Pero ahora mi problema es cómo puede subir o bajar el volúmen de ese archivo de sonido a través de mi programa.

Gracias.

seoane

11-05-2006 19:07:52

Código Delphi [-]const
  VK_VOLUME_MUTE = $AD;
  VK_VOLUME_DOWN = $AE;
  VK_VOLUME_UP = $AF;

procedure Pulsar(Key: Byte);
begin
 keybd_event(Key, 0, 0, 0);
 keybd_event(Key, 0, KEYEVENTF_KEYUP, 0); 
end;

procedure SubirVolumen;
begin
  Pulsar(VK_VOLUME_UP);
end;

procedure BajarVolumen;
begin
  Pulsar(VK_VOLUME_DOWN);
end;

procedure Mute;
begin
  Pulsar(VK_VOLUME_MUTE);
end;

Para usarlo por ejemplo con dos botones, uno para subir el volumen y otro para bajarlo, creo que es el metodo mas sencillo.

metalfox6383

11-05-2006 22:57:40

Pero lo que yo quiero es que sólo se baje o suba el volúmen de mi programa, pero no del general.

nandynna

05-08-2011 05:45:49

Muchas gracias!!!

Excelente. muchas gracias.!

Cita:

Empezado por seoane (Mensaje 136550)

La forma correcta de controlar el volumen es usando la API de windows, haciendo una busqueda por los foros o mirando los enlaces al final de esta pagina encontraras la forma de hacerlo.

Pero yo ahora te propongo una manera diferente de hacerlo, aprovechando que los nuevos teclados tienen teclas para controlar el volumen y que los sistemas operativos como WindowsXP estan preparados para utilizarlas, podemos simular la pulsacion de dichas teclas.

Código Delphi [-]const VK_VOLUME_MUTE = $AD; VK_VOLUME_DOWN = $AE; VK_VOLUME_UP = $AF; procedure Pulsar(Key: Byte); begin keybd_event(Key, 0, 0, 0); keybd_event(Key, 0, KEYEVENTF_KEYUP, 0); end; procedure SubirVolumen; begin Pulsar(VK_VOLUME_UP); end; procedure BajarVolumen; begin Pulsar(VK_VOLUME_DOWN); end; procedure Mute; begin Pulsar(VK_VOLUME_MUTE); end;

Para usarlo por ejemplo con dos botones, uno para subir el volumen y otro para bajarlo, creo que es el metodo mas sencillo.

La franja horaria es GMT +2. Ahora son las 04:32:57.