那位高手能帮我把如下代码改为循环播放？？？急！ unit gook;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,mmsystem;

type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;

var Form1: TForm1;

implementation

{$R *.dfm} {$R CustomRes.res}

procedure TForm1.FormCreate(Sender: TObject); var res:TResourcestream; filename:String; begin filename:='temp.mp3'; res:=TResourcestream.Create(0,'erosmp3',Pchar('FILE1')); res.SaveToFile(filename); (Pchar('open '+filename+' type mpegvideo alias nn'),nil,0,0); MCIsendstring('play nn',nil,0,0); res.Free ; deletefile(filename); end;

1.status mode 来获得播放状态，若为stopped则播放完毕，此时重新播放

2.用 status nn length 获得总长度，用status nn position 获得播放进度，两者相等说明播放完毕，然后重新播放

将状态检测代码加入到Timer控件中，每隔一秒检测一下。

楼上的好厉害，VB和这个差不多吗？