Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-10-2007
madiazg madiazg is offline
Miembro
NULL
 
Registrado: sep 2005
Ubicación: Canarias
Posts: 120
Poder: 14
madiazg Va por buen camino
Volumen de mi PC

Hola, buenos días,
mediante este código puedo controlar el nivel del volumen:
Código:
uses 
MMSystem; 
function GetVolumeControl(aMixer: HMixer; componentType, ctrlType: Longint; 
var mxc: TMixerControl): Boolean; 
var 
  mxl: TMixerLine; 
  mxlc: TMixerLineControls; 
  rc: Longint; 
begin 
  Result := False; 
  FillChar(mxl, SizeOf(TMixerLine), 0); 
  mxl.cbStruct := SizeOf(TMixerLine); 
  mxl.dwComponentType := componentType; 
{Obtain a line corresponding to the component type} 
  rc := mixerGetLineInfo(aMixer, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE); 
  if rc = MMSYSERR_NOERROR then 
  begin 
    with mxlc do 
    begin 
      cbStruct := SizeOf(TMixerLineControls); 
      dwLineID := mxl.dwLineID; 
      dwControlType := ctrlType; 
      cControls := 1; 
      cbmxctrl := SizeOf(TMixerLine); 
      pamxctrl := @mxc; 
      pamxctrl^.cbStruct := SizeOf(TMixerControl); 
    end; 
    mixerGetLineControls(aMixer, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE); 
    rc := mixerGetLineControls(aMixer, @mxlc, MIXER_GETLINECONTROLSF_ONEBYTYPE); 
    Result := rc = MMSYSERR_NOERROR; 
  end; 
end; 
function SetVolumeControl(aMixer: HMixer; mxc: TMixerControl; volume: Longint): Boolean; 
var 
  mxcd: TMixerControlDetails; 
  vol: TMixerControlDetails_Unsigned; 
  rc: MMRESULT; 
begin 
  FillChar(mxcd, SizeOf(mxcd), 0); 
  with mxcd do 
  begin 
    cbStruct := SizeOf(TMixerControlDetails); 
    dwControlID := mxc.dwControlID; 
    cbDetails := SizeOf(TMixerControlDetails_Unsigned); 
    paDetails := @vol; 
    cMultipleItems := 0; 
    cChannels := 1; 
  end; 
  vol.dwValue := volume; 
  rc := mixerSetControlDetails(aMixer, @mxcd, MIXER_SETCONTROLDETAILSF_VALUE); 
  Result := rc = MMSYSERR_NOERROR; 
end; 
function InitMixer: HMixer; 
var 
  Err: MMRESULT; 
begin 
  Err := mixerOpen(@Result, 0, 0, 0, 0);  
  if Err <> MMSYSERR_NOERROR then 
  Result := 0; 
end; 
// Example: 
procedure SetMasterVolumeToZero; 
var 
  MyMixerHandle: HMixer; 
  MyVolCtrl: TMixerControl; 
begin 
  MyMixerHandle := InitMixer; 
  if MyMixerHandle <> 0 then 
  try 
    FillChar(MyVolCtrl, SizeOf(MyVolCtrl), 0); 
    if GetVolumeControl(MyMixerHandle, MIXERLINE_COMPONENTTYPE_DST_SPEAKERS, MIXERCONTROL_CONTROLTYPE_VOLUME, MyVolCtrl) then 
    begin 
{The last parameter (0) here is the volume level} 
      if SetVolumeControl(MyMixerHandle, MyVolCtrl, 0) then 
      ShowMessage('Volume should now be set to zero'); 
    end; 
  finally 
    mixerClose(MyMixerHandle); 
  end; 
end; 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
SetMasterVolumeToZero 
end;
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).
¿Alguien sabe como averiguarlo?

Saludos...
Miguel Angel
Responder Con Cita
  #2  
Antiguo 22-10-2007
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
NULL
 
Registrado: oct 2006
Posts: 2.159
Poder: 15
cHackAll Va por buen camino
Cita:
Empezado por madiazg Ver Mensaje
...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
Responder Con Cita
  #3  
Antiguo 26-10-2007
madiazg madiazg is offline
Miembro
NULL
 
Registrado: sep 2005
Ubicación: Canarias
Posts: 120
Poder: 14
madiazg Va por buen camino
Hola,
gracias por la aportación pero no me acaba de funcionar este código. Por favor, ¿puedes comprobarlo y poner un ejemplo de su utilización?
Gracias y saludos...
Miguel Angel
Responder Con Cita
  #4  
Antiguo 26-10-2007
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
NULL
 
Registrado: oct 2006
Posts: 2.159
Poder: 15
cHackAll Va por buen camino
Código Delphi [-]
...

implementation
 
{$R *.dfm}
 
uses MMSystem;
 
var
 Volume: Cardinal;
 Details: TMixerControlDetails = (cbStruct: SizeOf(TMixerControlDetails);
                                  cChannels: 2;
                                  cbDetails: SizeOf(Volume);
                                  paDetails: @Volume);
 
function GetVolume: LongBool;
var Handle: Cardinal;
begin
 mixerOpen(@Handle, 0, 0, 0, MIXER_OBJECTF_MIXER);
 Result := not LongBool(mixerGetControlDetails(Handle, @Details, MIXER_GETCONTROLDETAILSF_VALUE));
 if not (Result or LongBool(Details.dwControlID)) then
  begin
   Inc(Details.dwControlID);
   Result := GetVolume;
  end;
 mixerClose(Handle);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if GetVolume then
  Caption := IntToHex(Volume, 8);
end;
 
...
 
end.

0j0: No es la forma "correcta" pero es la mas sencilla.
Responder Con Cita
  #5  
Antiguo 27-10-2007
madiazg madiazg is offline
Miembro
NULL
 
Registrado: sep 2005
Ubicación: Canarias
Posts: 120
Poder: 14
madiazg Va por buen camino
Thumbs up

Pues la verdad es que no se por qué no me funcionaba antes, pero ahora va estupendamente. Muchas gracias.
Saludos...
Miguel Angel.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Controlar volumen Ezecool Varios 1 16-08-2011 02:48:36
volumen en windows aram2r API de Windows 32 19-02-2008 20:58:58
Trackbar y volumen b2k Varios 2 17-09-2007 13:09:48
Control de Volumen, por fin madriles Varios 3 09-07-2006 11:41:02
Cambio de volumen de un MP3 gesko Varios 1 12-06-2005 14:29:55


La franja horaria es GMT +2. Ahora son las 09:13:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi