Ver Mensaje Individual
  #2  
Antiguo 11-05-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
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.
Responder Con Cita