if (midiOutGetNumDevs()>0) then MediaPlayer1.Play; 有错呢？？

打开“控制面板”的“声音和多媒体”，选择“音频”面板，在下面你可以看到“MIDI音乐播放”这一项，是灰色的，还是有选项的！

解决方案 »

  1.   

    我那对Midi设备的“关于”是灰色的~~~我那句if (midiOutGetNumDevs()>0) then MediaPlayer1.Play; 不就是判断有无Midi设备的吗？没有的话就不播放mid文件的呀。怎么还是有出错信息呢？
      

  2.   

    在procedure TForm1.FormCreate(Sender: TObject);里有句
    if (midiOutGetNumDevs()>0) then MediaPlayer1.Play; //播放背景音乐
    判断有无Midi的呀MediaPlayer1的FileName属性是"zhenll.mid"程序里就只有这一句是有关MediaPlayer1的~~~~
      

  3.   

       老兄，你的if (midiOutGetNumDevs()>0) then MediaPlayer1.Play; 放错地方了，不应该放在form1.creat事件中，你把它放在show事件中吧！问题解决了！西。
      

  4.   

    我后来放在show了，但还是那个错误~~再说以前用BCB5.0，这样都可以的啊~~怎么在Delphi就不行了哦~~我再加点分呀^_*
      

  5.   

    终于让我找到了！
    if (midiOutGetNumDevs()>0) then 
    begin
      MediaPlayer1.open;
      MediaPlayer1.Play; 
    end;
      

  6.   

    嘿,现在终于行了*^_^*
    谢谢yexiao(叶开)哈,分已经结啦!再一次感谢!!