windowsmediaplaayer连续播放问题？ ( 积分: 20 )

我有一个文件夹，内放歌曲不定，如何用Windowsmediaplayer连续播放文件加内的歌曲，请GGJJ们提供思路或方法代码，先谢谢了。

首先将歌曲加入列表，加入一个timer，然后在wmp中打开列表中选择的音乐文件后(即open后，否则会发生错误！)，timer每秒检测一次wmp.Position，当wmp.Position=wmp.Length时表示播放完毕，则先将timer禁用（否则会发生错误！）后wmp.close，wmp打开列表中的下一个音乐文件……

附我的测试代码：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer, ExtCtrls;

type
TForm1 = class(TForm)
mp: TMediaPlayer;
test: TButton;
stest: TEdit;
od: TOpenDialog;
stest2: TEdit;
tmr: TTimer;
procedure testClick(Sender: TObject);
procedure tmrTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.testClick(Sender: TObject);
begin

tmr.Enabled:=false;
if od.Execute then
mp.FileName:=od.FileName;
mp.Open;
stest.Text:=inttostr(mp.Length);
tmr.Enabled:=true;
end;


procedure TForm1.tmrTimer(Sender: TObject);
begin

stest2.Text:=inttostr(mp.Position);
if mp.Position=mp.Length then
tmr.Enabled:=false;
end;


end.

我需要自动连续播放，歌曲全部播放完后才能停止，上面说的有点不符合我的，但还是谢谢了！单曲播放不需要添加Timer这么麻烦的

你可能不懂我的意思
用wmp一般是要用timer控制的
先设一个list——存放要连续播放的文件名
然后写一个过程来选文件播放，wmp一次好像只能载入一个文件呀！
timer用来实时观察文件是否播放完毕，若播放完毕，调用上面的那个选文件播放的过程！

To 举世^杰伦
能否给各实例，Email：halqjiang@126.com

不需要这么麻烦啊，WMP有播放列表功能，你可以生成个列表，然后随机取Index赋值给WMP，就能播放了！另外，去查查WMP的SDK，我记得好像WMP有属性可以直接设置随机播放的。你只要设置好属性，把播放列表给它，其他的不用管了，它自己会随机播放的。

楼主，我发了一个别人的实例给你了，很强的……
请问上一楼：wmp怎么播放列表？能给个实例吗？还有，SDK资料在哪里找？？
2xhx@163.com

我的不用TIMER

如果你想花最少的钱学习流行的计算机技术,本人低价提供
计算机专业高清晰 视 频 教 程,所有教程由业内名家讲解，物超所值,
所有光盘4元/张,特快专递全国三天内到货.
联系方式:手 机：1 3 5 76145612(手机联系佳) Q Q:108410943
E-mail:ncncldjjg@126.com
1、Oracle9iOCP(Oracle认证专家DBA)视频教程(23CD)
2、SQL语言、数据挖掘、SQLServer2000视频教程(6CD)
3、计算机网络原理视频教程(4CD)
4、计算机实用组网技术视频教程(3CD)
5、MCSE（微软认证系统工程师）认证视频教程(11CD)
6、windows2003即学即会视频教程(6CD)
7、J2EE Web程序开发定向班/Java就业班视频教程
(java基础jsp核心技术UML设计)(13CD)
8、J2EE基础高级案例分析视频教程(9CD)
9、马士兵J2SE入门与精通(含坦克大战、BBS实例)视频教程(6CD)
10、java语言深入详解视频教程(12CD)
11、java技术从入门到精通视频教程(21CD)
12、javascript全接触视频教程(13CD)
13、各类网站源程序(9CD)
14、unix原理视频教程(3CD)
15、Linux软件开发工程师(C语言)视频教程(4CD)
16、Linux配置、管理、优化实战工程师视频教程(8CD)
17、Linux内核编程视频教程(11CD)
18、C语言详解视频教程(2CD)
19、VC++6.0(MFC)开发技术术详解视频教程(6CD)
20、ASP.NET中文视频教程(3CD)
21、洪恩C#入门多媒体教程(1CD)
22、XML技术视频教程(2CD)
23、操作系统视频教程(3CD)
24、网络技术基础视频教程(2CD)
25、数据结构视频教程(5CD)
26、清华大学计算机专业多媒体教程（数据结构、汇编、编译原理等）(13CD)
27、大学数学[离散数学线性代数概率与数理统计微积分]视频教程(22CD)
28、LearnKey Asp.Net (老外用英语讲课)(13CD)
29、LearnKey Asp.Net Webservice(老外用英语讲课)(5CD)
30、AppDev Asp.Net2.0 UsingC# (老外用英语讲课)(1CD)
31、APPDev .Net Framework(老外用英语讲课)(2CD)
32、林清安pro/e2001(野火版)视频教程(18CD)
33、深圳大学3D设计视频教程(4CD)
34、3DMAX建模视频教程(老外用英语讲课)(6CD)
35、3DMAX纹理与贴图材质灯光视频教程(老外用英语讲课)(5CD)
36、3DMAX格式500个常用模型库(4CD)
37、lightscape基础入门视频教程(2CD)
38、聚光制造（lightscape3.2入门与精通视频教程）(4CD)
39、coreldraw12中文版入门与精通swf格式视频教程(2CD)

好烦,怎么广告也发在这里了,[!][!][!]