//右声道
mciExecute(Pchar('SetAudio MyPlay Source to Right'));
mciExecute(Pchar('SetAudio MyPlay Source to average'});//均衡左右音箱//左声道
mciExecute(Pchar('SetAudio Myplay Source to Left'));
mciExecute(Pchar('SetAudio MyPlay Source to average'));//均衡左右音箱//立体声
mciExecute(Pchar('SetAudio MyPlay source to stereo'));//其中MyPlay是当前播放的alias,直接控制声音来源,左右音箱音量绝对均衡可能要加入:USES mmSystem我想知道以上的myplay 为别名那是怎样在dsplay中设的呢?

解决方案 »

  1.   

    mciSendCommand(hStream,MCI_SETAUDIO,MCI_SET_OFF,integer(@sSETAUDIOPARMS));   //hStream为驱动id,也就是MediaPlayer1.DeviceID返回值;虽然不一样,但源理差不多吧 hehe^^---------
    春困秋乏夏打盹,睡不醒的冬三月 ^^!
      

  2.   

    vcd和dvd格式分别不同。vcd通过如下可切换,mciSendCommand(hStream,MCI_SETAUDIO,MCI_SET_OFF,integer(@sSETAUDIOPARMS));   //hStream为驱动id,也就是MediaPlayer1.DeviceID返回值;      case iChannels of        1:          sSETAUDIOPARMS.dwValue:=MCI_DGV_SETAUDIO_SOURCE_LEFT;     //left        2:          sSETAUDIOPARMS.dwValue:=MCI_DGV_SETAUDIO_SOURCE_RIGHT;    //right        3:          sSETAUDIOPARMS.dwValue:=MCI_DGV_SETAUDIO_SOURCE_STEREO;   //立体声      end;      sSETAUDIOPARMS.dwItem:=MCI_DGV_SETAUDIO_SOURCE;      mciSendCommand(hStream,MCI_SETAUDIO,                     MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM ,                     integer(@sSETAUDIOPARMS));      result:=mciSendCommand(hStream,MCI_SETAUDIO,                             MCI_SET_ON,integer(@sSETAUDIOPARMS));dvd 格式:  const    MCI_DGV_SETAUDIO_STREAM=$4003;  var     s: MCI_DGV_SETAUDIO_PARMS;begin    if IntLeftRight=1 then       s.dwValue:=1                  //值分别为1.,8  八个值。1,2可实现原伴音的切换。    else       s.dwValue:=2;    s.dwItem:=MCI_DGV_SETAUDIO_STREAM ;    mciSendCommand(IntDeviceID,MCI_SETAUDIO,                   MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM,                   integer(@s));
     
    ---------
    春困秋乏夏打盹,睡不醒的冬三月 ^^!
      

  3.   

    想问一下你播入DVD是用什么控件来放的?