多媒体（闹铃）

多媒体（闹铃）

步骤一：向Form1中添加5个Label组件（Label1用于输出现在时间; Label2---Caption: 现在时间;Label3---Caption: 闹铃时间; Label4---Caption: 闹铃时间; Label5 用于输出闹铃声音的名称），1个Edit组件用于用户设置闹铃时间，1个Button用于导入闹铃音乐。向Form1中添加一个Timer和一个Mediaplayer组件（system组中），其中Mediaplayer---Visible: false;

步骤二：1. Timer1:

label1.Caption:=timetostr(time());

if copy(label1.caption,1,5)=edit1.text thenmediaplayer1.Play;

2.Button1:

if(opendialog1.Execute)

then Mediaplayer1.FileName:=opendialog1.FileName;

Label5.caption:=ExtractFileName(OpenDialog1.FileName);

Mediaplayer1.Open;