我確定之前也沒有這樣的問題，爬了很多文都沒有結果！

procedure TForm1.WindowsMediaPlayer1PlayStateChange(ASender: TObject;

NewState: Integer);

begin
if (newstate=wmppsMediaEnded) then begin

randomize;

combobox1.ItemIndex:=random(combobox1.Items.Count-1);
wmp1.Controls.stop;

wmp1.URL:=combobox1.Text '.mp3';

wmp1.Controls.play;

//showmessage('ok');

end;
end;

播完之後，wmp會直接停止，不會自動撥放下一個檔案；
但是如果在播放後面加上showmessage('ok');讓程式暫停，那麼會自動撥放下一首，但按下OK的對話框之後，播放就會馬上停止，可是後面沒有程式了呀！

不知道為什麼？謝謝！

編輯記錄

紀錄:

如果釋放windowsmediaplayer再重建控件，自然沒有這個問題，但這不是好方法，而且這個問題還是無解

經測試
在win7內建的wmp12用
if (wmp1.playState=wmppsReady) then wmp1.controls.play;
可以續播

但在xp內建的wmp9則會一直停在NewState=9的正在連接中...

關注中...

好像沒人有興趣，好吧，不堅持了，還是用timer解決了，謝謝大家。

個人有另一種解法：

1. 先依照亂數順序，把要播放的檔案名稱加入 WMP 的 playlist
[code delphi]
WMP.currentPlaylist.appendItem(WMP.newMedia(檔案名稱));
[/code]

2. 設定 WMP 自動播放下一首，循環播放
[code delphi]
WMP.settings.autoStart = true;
WMP.settings.setMode('loop', true);
WMP.Ctlcontrols.play();
[/code]

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

編輯記錄