05-08-2011
|
Registrado
|
|
Registrado: abr 2007
Posts: 4
Reputación: 0
|
|
Muchas gracias!!!
Excelente. muchas gracias.!
Cita:
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.
|
|