张志峰的博客

摘要： 新建一个名字为media的文件夹，把要播放的音乐文件放在这个文件夹里。 ExtractFilePath是用来获得产生的可执行程式所在的路径，因为我们把要播放的音乐文件放在了可执行程式的那个根目录下。 procedure TForm1.MediaPlayer_Play; var mediapath,v 阅读全文

摘要： 转自：http://blog.csdn.net/yunqian09/article/details/5554527 我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关 procedure TForm1.Timer1Timer(Sender: TObject); 阅读全文