代码问题，请delphi大师来接分

来源：百度知道 编辑：UC知道 时间：2024/05/31 10:16:37
只用button和timer，在不用其它组件的情况下，能否用mcisendstring循环播放F盘上的3个MP3文件：S1.MP3、S2.MP3、S3.MP3？
怎不知道播放的内容什么时候完？status mode 来获得播放状态，若为stopped则播放完毕。但往下不知怎么搞……

mciSendString
mciSendString是用来播放多媒体文件的API指令，可以播放MPEG,AVI,WAV,MP3,等等，下面我们来介绍一
下它的使用方法：
一，打开多媒体文件。
首先在Dialog上面放一个Picture控件，MCISendString就在这个Picture控件的平面上播放多媒体文件，
设Picture控件的ID为IDC_STATIC1：
CStatic *pStatic=(CStatic*)GetDlgItem(IDC_STATIC1);HWND h=pStatic->GetSafeHwnd();
CString open1;
char buf[256];
open1.Format("open f:""mpeg""mpeg1.avi type MPEGVideo Alias movie parent %u Style %u notify", h,WS_CHILD);
mciSendString(open1.GetBuffer(open1.GetLength()),buf,sizeof(buf),NULL);
这样F盘下面的mpeg目录下的mpeg1.avi就打开了，其中的type MPEGVideo是指打开MPEG,AVI等类型，如果不加
type MPEGVideo这一句，就是打开WAV,MP3等，Alias movie定义了mpeg1.avi的别名为movie，以后可以通过操
做movie就可以操作mpeg1.avi。
二,播放多媒体文件。
上面我们已经打开了f:"mpeg"mpeg1.avi，现在我们来播放它：
mciSendString("play movie",buf,sizeof(buf),NULL);
如果想全屏播放：
mciSendString("play movie fullscreen",buf,siz