Volumen de mi PC

[[cHackAll]]

Empezado por madiazg

...Pero lo que no he podido encontrar es la forma de obtener el valor del volumen general cuando lanzo mi aplicación (valor entre 0 y 65535)...

Código Delphi [-]
uses MMSystem; 
 
var 
 Handle, Volume: Cardinal; 
 Details: TMixerControlDetails = (cbStruct: SizeOf(TMixerControlDetails); 
                                  cChannels: 2; 
                                  cbDetails: SizeOf(Volume); 
                                  paDetails: @Volume); 
 
begin 
 mixerOpen(@Handle, 0, 0, 0, MIXER_OBJECTF_MIXER); 
 mixerGetControlDetails(Handle, @Details, MIXER_GETCONTROLDETAILSF_VALUE); 
 mixerClose(Handle); 
end.

0j0: Volume