张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi 调用报警音乐

delphi中使用mediaplayer控件播放音乐

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

posted @ 2016-07-12 12:34 ╰★张志峰★╮ 阅读(1156) 评论(0) 推荐(0)

delphi报警声音 Beep、MessageBeep 和 Windows.Beep

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

posted @ 2016-07-12 11:20 ╰★张志峰★╮ 阅读(1177) 评论(0) 推荐(0)