Calibrar el volúmen de un sonido

[metalfox6383]

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

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.

[metalfox6383]

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

[nandynna]

Excelente. muchas gracias.!

Empezado por seoane

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.