播放MPEG4压缩的AVI，如何控制左右声道，要源程序(100分)

我用DELPHI的TMediaPlayer写的用来播放MPEG4压缩的AVI，如何控制左右声道，要源程序，我找遍了大富翁上的文章，根本不行，谁能做。

怎么控制啊,是不是不输出声音什么的,这样只要把声音改成0就可以了[]

控制左右声道的源码!
电脑报上就有啊。

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;

上面的程序是我发给Luket的源程序，小子！

这可能和片源有关系，试想如果片源中本身压左，右声道的话，你的程序水平再高，也没用呀
我现在也在为此事烦呢，我见议自己压个MPEG4试自已的程序。

可能需要自己写Filter..

把分给我，我给你发Email.

接受答案了.