RSS订阅 | 匿名投稿
您的位置:网站首页 > 媒体 > 正文

Delphi设计循环播放声音文件程序

作者:admin 来源:未知 日期:2010/4/23 11:25:52 人气: 标签:

本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。
  首先在程序的uses段中添加MMSYSTEM,然后在窗体的初始化过程中添加以下代码:

  procedure TForm1.FormCreate(Sender: TObject);
begin
 SndPlaySound('c:\RECYCLE.WAV',SND_ASYNC or SND_LOOP);
end;

  这样,在程序运行的初期,程序就会通过SndPlaySound函数循环不断地播放声音文件c:\RECYCLE.WAV。

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: