【转】关于调节音量的API

以下内容摘自拙作《Delphi 7图形图像多媒体高级控件开发》 
//获取总音量 
   Volume : cardinal; 
   waveoutgetvolume(0, @Volume); 
   Self.Position := (((Volume and $ffff0000) shr 16) 
     + (Volume and $ffff)) div 2; 
//设置总音量 
   Volume : cardinal; 
   Volume := (Self.Position shl 16) + Self.Position; 
   waveoutsetvolume(0, Volume); 
其他设备 
       waveoutsetVolume(0, Volume); 
       waveoutgetVolume(0, @Result); 
       auxsetVolume(0, Volume); 
       auxgetVolume(0, @Result); 
  

摘自：http://www.newsmth.net/nForum/#!article/NewSoftware/978