付现金!!求DirectShow实现Karaok效果(100分)

TO zhihuali：
我的QQ是4713167，你的呢？

各位都可以来交流交流!!

》》有人建议我用DirectShow的Filter,对Mp3 Decoder Filter输出的声音建一个Filter,自己处理，然后输出到DirectSound Device Filter
可以，安装一个 MS 的 DIRECT DDK ，里面有关于 Filter 的配置测试工具，加上下面网站
的控件，调试和编程都方便！
www.progdigy.com

TO zhihuali：
强烈希望能在QQ上请教你!!
满足我的愿意吧!!

根据撒野提供的源代码,已找到答案,多谢zhihuali的帮助!
zhihuali请收分!
撒野:请到另一个贴子来捡分.

源程序如下：
3、4、5分别为立体声、左声道、右声道
procedure TForm1.Button3Click(Sender: TObject);
var
Vol : DWORD
begin

waveoutGetVolume(MediaPlayer1.DeviceID-1,@Vol)
Vol := Vol or $ffffffff
waveoutSetVolume(MediaPlayer1.DeviceID-1,Vol)
end;


procedure TForm1.Button4Click(Sender: TObject);
var
Vol : DWORD
begin

waveoutGetVolume(MediaPlayer1.DeviceID-1,@Vol)
Vol := ((Vol shr 16) shl 16) or $ffff0000
waveoutSetVolume(MediaPlayer1.DeviceID-1,Vol)

end;


procedure TForm1.Button5Click(Sender: TObject);
var
Vol : DWORD
begin

waveoutGetVolume(MediaPlayer1.DeviceID-1,@Vol)
Vol := ((Vol shl 16) shr 16) or $0000ffff
waveoutSetVolume(MediaPlayer1.DeviceID-1,Vol)

end;