我想在程序中控制播放的次数怎么控制?或者可不可以探测到一个声音文件被播放完毕??
    请高手指教!!

解决方案 »

  1.   

    procedure TForm1.MediaPlayer1Notify(Sender: TObject);
    begin
      with Sender as TMediaPlayer do
      begin
        if (Mode = mpStopped) and (YourCount < 5) then Play;
        Notify := True;
      end;
    end;
      

  2.   

    不好意思,楼上的解释的清楚一点好么?就是如何用Mediaplayer循环播放几次,好像好要确定是否已经播放完毕!
      谢谢
      

  3.   

    不好意思,楼上的解释的清楚一点好么?就是如何用Mediaplayer循环播放几次,好像好要确定是否已经播放完毕!
      谢谢