delphi简单的播放声音

本文整理自网络，侵删。

 procedureTaboutBox.FormShow(Sender:TObject);
begin
//播放当前目录下的welcome.wav文件
sndplaysound('welcome.wav',snd_async);
end;

procedureTAboutBox.FormClick(Sender:TObject);
begin
//停止播放
sndplaysound('',snd_async);
end; 

相关阅读 >>

Delphi 对gzip解压

Delphi 判断目录是否有写入权限

Delphi sysutils.comparestr、sysutils.comparetext - 字符串比较

Delphi入门语法

Delphi 怎么计算一个memo中输入的汉字数目

Delphi代码，直截注入别的进程，之后直截运行在别的进程中的代码!

Delphi fdquery获取字段类型

Delphi通过ie窗口句柄获取网页接口（iwebbrowser2）

Delphi label设置为背景透明

Delphi shellexecute执行cmd命令窗口不关闭

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi简单的播放声音