这问题特奇怪, 解霸在解码 MPEG时有左右之别, 平时只能通过调节左右, 除此之外还有什么方法?

解决方案 »

  1.   

    我好象见过!!
    你可以看一下<DELPHI4.0多媒体编程技术实例>
    中国水利水电出版社出版
      

  2.   

    uses mmsystem;procedure TForm1.FormCreate(Sender: TObject);
    var v:longint;
    begin
      waveoutgetvolume(0,@v);           //得到现在音量
      trackbar1.Position:=hi(v);        //左声道
      trackbar2.Position:=hi(v shr 16); //右声道
    end;procedure TForm1.TrackBar2Change(Sender: TObject);
    var t,v: longint;
    begin
      t:=trackbar2.Position;
      waveoutgetvolume(0,@v);
      v:=v and $0000ffff or (t shl 24);
      waveoutsetvolume(0,v);
    end;procedure TForm1.TrackBar1Change(Sender: TObject);
    var t,v: longint;
    begin
      t:=trackbar1.Position;
      waveoutgetvolume(0,@v);
      v:=v and $ffff0000 or (t shl 8);
      waveoutsetvolume(0,v);
    end;
      

  3.   

    头文件mmsystem.pas
    var
    t,v:lonint;
    begin
    t:=trackbar1.position;
    waveoutgetvolume(0,@v);
    v:=v and $ffff0000 or (t shl 8);//左声道
    //v:=v and $0000ffff or (t shl 8);//右声道
    waveoutsetvolume(0,v);
    end;
    初始化声音:
    formcreate
    var 
    v:longint;
    得到音量:
        waveoutgetvolum(0,@v);
    左:trackbar1.position:=hi(v);
    右:trackbar2.position:=hi(v shr16));
     
      

  4.   

    mcisendstring('set all audio all off',nil,0,nil)
    mcisendstring('set all audio all on',nil,0,nil)
    mcisendstring('set all audio all left on',nil,0,nil)
    mcisendstring('set all audio all right on',nil,0,nil)
    灵活运用(上述代码基本正确,如果写错查一下HELP)
    记得给分我!
      

  5.   

    mcisendstring('set all audio all off',nil,0,nil)
    mcisendstring('set all audio all on',nil,0,nil)
    mcisendstring('set all audio all left on',nil,0,nil)
    mcisendstring('set all audio all right on',nil,0,nil)
    灵活运用(上述代码基本正确,如果写错查一下HELP)
    记得给分我!