[kalisto]

Quisiera saber como se puede cambiar el volumen general de la tarjeta de sonido.
he probado con lo siguiente pero el volumen sigue siendo el mismo.

Código Delphi [-]
 
Type
  TVolume = packed record
    Left : Word;
    Right : Word;
    End;
const
  DeviceIndex=5;
 
var
  Vol: TVolume;
 
begin
    Vol.Left := strtoint(edit1.text) shl 8;
    Vol.Right:= Vol.Left;
    auxSetVolume(UINT(DeviceIndex), Vol.Right) ;
end;

Agradeceria ayuda, mi version de delphi es la 7.