关于设置声道的几个问题？(35分)

1 怎么设置左右声道
2 当为单声道时，怎么恢复为双声道

MMSYSTEM.pas中有个函数.
我忘记了你可以在里面找.
很容易找得到的.

mciExecute(Pchar('SetAudio MyPlay source to Right'));右声道
mciExecute(Pchar('SetAudio MyPlay source to Left'));左声道
mciExecute(Pchar('SetAudio MyPlay source to stereo'));立体声
mciExecute(Pchar('SetAudio MyPlay source to average'));均衡;

Myplay 是当前所播放的alias
直接控制声音来源,左右音箱音量绝对相对。 　　　　　　　　　　　

如何改变左右声道
　　　　　
　　　 当让右声道发声时,在响应事件中,加入以下代码;

　　　　mcisendstring('set all audio all off',nil,0,handle);
　　　　mcisendstring('set all audio right on',nil,0,handle);

　　　　当让左声道发声时,在响应事件中,加入以下代码;

　　　　mcisendstring('set all audio all off',nil,0,handle);
　　　　mcisendstring('set all audio left on',nil,0,handle);

不知道你想要哪种控制左右声道的，下面的是控制播放文件左右声道的，
如“左是国语，右是外语”，现在的下面的操作可以把，一个声道消除，
然后均衡左右音箱，
—————————————————————————右声道
mciExecute(Pchar('SetAudio MyPlay source to Right&apos);
mciExecute(Pchar('SetAudio MyPlay source to average&apos);
—————————————————————————左声道
mciExecute(Pchar('SetAudio MyPlay source to left&apos);
mciExecute(Pchar('SetAudio MyPlay source to average&apos);
—————————————————————————立体声
mciExecute(Pchar('SetAudio MyPlay source to stereo&apos);