delphi – 如何直接播放没有相关应用程序的声音文件(mp3,wav等)？

概述我还需要能够控制它的音量. 另外,如何控制系统音量,检测低音量或静音状态？ 使用Shoban的链接来播放声音. 以下是如何控制设备的音量： uses MMSystem;type TVolumeRec = record case Integer of 0: (LongVolume: Longint) ; 1: (LeftVolume, RightVol 我还需要能够控制它的音量.
另外,如何控制系统音量,检测低音量或静音状态？解决方法 使用Shoban的链接来播放声音.

以下是如何控制设备的音量：

uses MMSystem;type   TVolumeRec = record     case Integer of       0: (LongVolume: Longint) ;       1: (leftVolume,RightVolume : Word) ;     end;const DeviceIndex=5       {0:Wave        1:MIDI        2:cdaudio        3:line-In        4:Microphone        5:Master        6:PC-loudspeaker}procedure SetVolume(aVolume:Byte) ;var   Vol: TVolumeRec;begin   Vol.leftVolume := aVolume shl 8;   Vol.RightVolume:= Vol.leftVolume;   auxSetVolume(UINT(DeviceIndex),Vol.LongVolume) ;end;function GetVolume:Cardinal;var   Vol: TVolumeRec;begin   AuxGetVolume(UINT(DeviceIndex),@Vol.LongVolume) ;   Result:=(Vol.leftVolume + Vol.RightVolume) shr 9;end;

总结

以上是内存溢出为你收集整理的delphi – 如何直接播放没有相关应用程序的声音文件(mp3,wav等)？全部内容，希望文章能够帮你解决delphi – 如何直接播放没有相关应用程序的声音文件(mp3,wav等)？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。