掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TWindowsMediaPlayerで個々のファイルを連続再生させるには (ID：33642)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.MoviePlay; begin if (PlayListNo < ListBox1.Count) then begin WindowsMediaPlayer1.URL := ListBox1.Items[PlayListNo]; WindowsMediaPlayer1.controls.play; Inc(PlayListNo); end; end; procedure TForm1.PlayerPlayStateChange(Sender: TObject; NewState: Integer); begin case NewState of wmppsMediaEnded: begin MoviePlay; end; wmppsReady: begin if (Assigned(WindowsMediaPlayer1.currentMedia)) then begin WindowsMediaPlayer1.controls.play; end; end; end; end; これでOKと思います。 ちなみに、 http://cult-drang.com/program/tips/index.html でTWindowsMediaPlayerを使って色々やってますのでよろしければどうぞ。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.