关于左右声道切换的问题 CDSoftwareWj 进来

关于左右声道切换的问题 CDSoftwareWj 进来 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061015125046242.html

我希望播放影音文件时控制系统的左右声道切换，
是左右声道同时播放左声道的音频或同时播放右声道的音频。

搜索后发现只有CDSoftwareWj回复的一篇代码好象有点道理，于是按上面去做。
代码中
mciSendCommand(Form1.MediaPlayer1.DeviceID,MCI_SETAUDIO, MCI_SET_OFF ,integer(@s));
是关闭声音

mciSendCommand(Form1.MediaPlayer1.DeviceID,MCI_SETAUDIO, MCI_SET_ON ,integer(@s));
是打开声音

可在这两代码之间的
s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_Left;
并没有起到声道切换的作用，完全没有任何效果。

请问谁有好方法、好例子？
（ps：不要发单独控制左右声道音量的例子。）

CDSoftwareWj相关帖子： http://topic.csdn.net/t/20020420/15/662797.html#Reply_4358704 http://topic.csdn.net/t/20031106/22/2435572.html

来一高手解决问题啊

mark
http://topic.csdn.net/t/20020420/15/662797.html
找我就找对淫了 哇哈哈哈

20 分~~ 太少了吧 多加点 ^^!

这问题时间太久了，要给你找找
http://topic.csdn.net/t/20031106/22/2435572.html
汗~~ 我这个帖子里的代码不是就行么 -_-||

1. 播放中一定要先关闭声音，否则没效果
2. 设置声道
3. //下面的MCI_DGV_SETAUDIO_VALUE 一定不能少
这里也很关键 err:=mciSendCommand(MediaPlayer11.DeviceID,MCI_SETAUDIO,MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM ,integer(@s));

4. 重新打开就行了

就是这样的过程