怎么将wav的声音放大后再输出？

[haochin]

以下是播放wav声音的代码：使用MMSystem单元
PlaySound(PChar('Sound\Message.wav'), 0, 0);


问题是，怎么样可以将声音放大呢，如放大于原来的百分之150。。。






我要的答案不是调系统声音或音箱音量开关之类的哦。。。

要求有些类似QQ影音，暴风影音，可以无限放在声音，不受系统影响。。
当然放大后音质有损或是喇叭带不起，这些不在考虑范围内。。。

[haochin]

看得我迷迷糊糊。。。。。。

估计自己没那水平了。。。

[kye_jufei]

提供四个函数：

获取音量GetVolume(DN)
设置音量SetVolume(DN,Value)
获取静音GetVolumeMute(DN)
设置静音SetVolumeMute(DN,Value)

[haochin]

[Quote=引用 1 楼 kye_jufei 的回复:]
提供四个函数：

Delphi(Pascal) code
获取音量GetVolume(DN)
设置音量SetVolume(DN,Value)
获取静音GetVolumeMute(DN)
设置静音SetVolumeMute(DN,Value)
[/Quote]

浪子兄，你这个是对系统音进行调节吧。
我的笔记本已经调调到最大音量了。没办法再调。。
我想实现像暴风影音和QQ影音那样，可以无限放在声音的。。与系统的音量无关。

[kye_jufei]

控制聲卡。。。ＭＳＤＮ上面找到的幾個函數：

.....

UINT mixerGetNumDevs(VOID);
  MMRESULT mixerSetControlDetails(
    HMIXEROBJ hmxobj,
    LPMIXERCONTROLDETAILS pmxcd,
    DWORD fdwDetails
  );

........

[zhaodog]

那样你要分析声音数据，对数据文件放大才行

[lhy]

改数据，把数据和中间点之间距离加大。
比如8位的数据 c0改成e0