本文整理自网络,侵删。
本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。
首先在程序的uses段中添加MMSYSTEM,然后在窗体的初始化过程中添加以下代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
SndPlaySound('c:\RECYCLE.WAV',SND_ASYNC or SND_LOOP);
end;
这样,在程序运行的初期,程序就会通过SndPlaySound函数循环不断地播放声音文件c:\RECYCLE.WAV。
相关阅读 >>
Delphi 判断指定字符串是否开头 startstext用法
idtcpclient和idtcpclient 主要属性和方法
Delphi tokyo 版本 twebbrowser 的一个问题(bug?)
Delphi getsessionusername通过会话id得到会话名称
Delphi monthoftheyear、weekoftheyear、weekofthemonth、dayoftheyear … 相对时间
更多相关阅读请进入《Delphi》频道 >>