2 respuestas en este tema

[escafandra]

Hace unos meses publicaba una unit, WinMasterVolumen, para controlar el volumen del PC con WinXP, Vista, Win7 y Win8. En esta ocasión y basada en el mismo código presento la segunda versión que añade la característica de disparar un evento cuando el volumen o el mute del sistema varían, bien por acción del usuario o por código.

El sistema callback es diferente, de nuevo, en WinXP y común en adelante. En XP se basa en un mensaje MM_MIXM_CONTROL_CHANGE. En principio es fácil de usar pero requiere un bucle de mensajes para que funcione y una ventana.

En Vista, Win7 y Win8 tenemos que echar mano de interfaces de windows y el evento es una llamada a una función (OnNotify) que usaremos para realizar el proceso.

Para conseguir que el código funcione en todos los sistemas operativos he escrito esta nueva unit que presenta una clase TMasterVolume que hará el trabajo. Esta clase tiene los siguientes funciones y precedimientos públicos:
 
 

delphi

    constructor Create;
    destructor  Destroy; override;
    procedure SetNotifyEvent(OnNotify: TOnNotify);
    procedure SetChangeStatusEvent(OnChangeStatus: TOnChangeStatus);
    procedure SetChangeStatusCallBack(OnChangeStatus: TOnChangeStatusCallBack);
    function  GetMasterMute: boolean;
    procedure SetMasterMute(Value: boolean);
    function  GetMasterVolume: DWORD;
    procedure SetMasterVolume(Value: DWORD);

 
Los eventos pueden ser de estos tipos:
 

delphi

type
TOnNotify = function(pNotify: PAUDIO_VOLUME_NOTIFICATION_DATA): HRESULT; stdcall;
POnNotify = ^TOnNotify;
 
TOnChangeStatus = procedure(Volume: DWORD; Mute: boolean) of object;
TOnChangeStatusCallBack = procedure(Volume: DWORD; Mute: boolean); stdcall;

SetNotifyEvent Sólo válido para vista en adelante, asigna un evento similar al usado por windows, TOnNotify . Al usar valores en coma flotante he añadido otros dos que usan DWORD siendo mas compatible en todos los S.O.
SetChangeStatusEvent Asigna un evento tipo TOnChangeStatus compatible con la VCL, es decir, será una función de nuestro Form, por ejemplo.
SetChangeStatusCallBack Asigna un evento tipo TOnChangeStatusCallBack, no compatible con VCL y diseñado para uso en programas API puros.

El resto de las funciones son equivalentes a WinMasterVolumen.

El siguiente es un ejemplo se uso usando la VCL, un formulario con un TrackBar y un CheckBox:

delphi

procedure TForm1.OnChangeStatus(MasterVolume: DWORD; Muted: boolean);
begin
  CheckBox1.Checked:= Muted;
  TrackBar1.Position:= MasterVolume;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Master:= TMasterVolume.Create;
  Master.SetChangeStatusEvent(OnChangeStatus);
  CheckBox1.Checked:= Master.GetMasterMute;
  TrackBar1.Position:= Master.GetMasterVolume;
end;
 
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Master.Free;
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Master.SetMasterVolume(TrackBar1.Position);
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Master.SetMasterMute(CheckBox1.Checked);
end;

Un ejemplo de uso con API pura en WindowsXP:
 

delphi

uses
  Windows, Messages, WinMasterVolumeClass;
 
var
  Msg: TMsg;
  Master: TMasterVolume;
 
procedure OnChangeStatus(Volume: DWORD; Mute: boolean); stdcall;
begin
  // Mantenes el volumen al máximo y con mute desactivado
  Master.SetMasterVolume($FFFF);
  Master.SetMasterMute(false);
end;
 
begin
  Master:= TMasterVolume.Create;
  Master.SetMasterVolume($FFFF);
  Master.SetMasterMute(false);
  Master.SetChangeStatusCallBack(@OnChangeStatus);
 
  // bucle de mensajes
  repeat GetMessage(Msg, 0, 0, 0);
    DispatchMessage(Msg);
  until (Msg.Message = WM_QUIT);
end.

El mismo código en Vista, Win7 y Win8. No precisa bucle de mensajes:
 

delphi

uses
  Windows, Messages, WinMasterVolumeClass;
 
var
  Msg: TMsg;
  Master: TMasterVolume;
 
procedure OnChangeStatus(Volume: DWORD; Mute: boolean); stdcall;
begin
  Master.SetMasterVolume($FFFF);
  Master.SetMasterMute(false);
end;
 
begin
  Master:= TMasterVolume.Create;
  Master.SetMasterVolume($FFFF);
  Master.SetMasterMute(false);
  Master.SetChangeStatusCallBack(@OnChangeStatus);
  repeat sleep(200); until false;
end.

Aunque podríamos dar más funcionalidad a esta unit, de momento la dejo como está. Espero que os sea útil.


Saludos.

Archivos adjuntos

•  WinMasterVolumeClass Fuente.rar   6,07KB   15 descargas
•  WinMasterVolumeClass Binario.rar   162,07KB   6 descargas

[KlausGunther]

Hello,

 

Sorry about that, but I don't speak Spanish. English, German, French or Portugese, but not Spanish. so, please, be indulgent with my english comment.

 

This message has initially be posted as a reply to the following publication:

http://delphiaccess....hasta-win8-y-2/

My reply has appearently be isolated to a separate message stream, not longer connected to the original massage. I dont know why. But I give the original URL because otherwise, my reply would not be comprehensive.

 

I'm the author of a huge support DLL (more then 1000 functions) written in Delphi 6 Personal Edition, designed for use by a freeware BASIC clone named Panoramic. Recently, I came to temper with the volume controls of Windows, and after some coding and research on the web, I stumbled upon this piece of software. I downloaded it and tested it, under Windows 10,Fall creator update installed. It just worked right out of the box ! Very nice piece of softare !

 

So, I decided to include it into my DLL and build my specific functions arround it. A few hours of work, and it was fuly operational, and I just published it into the (small) forum of Panoramic users. I granted you full award for this software in the CHM documentation, as well as in the online documentation for my DLL. I hope you will be enjoyed by this application of your software.

 

Here is the link to the corrsponding online documentation page:

http://klauspanorami...MasterVolume_fr

Don't hesitate to navigate to the licence page - you will find a link to this website !

 

Here is a link to my personal website:

https://klauspanoram...webhostapp.com/

 

Here is the link to the French forum (my pseudo is Klaus):

http://panoramic.free-boards.net/

 

Finaly, here is the link to Panoramic's home page:

http://panoramic-lan...ench/index.html

 

So, congratulations and thanks for the publication of this component !

[escafandra]

Muchas gracias a ti por haberte interesado en el tema.

 

Saludos.