delphi简单的播放声音

本文整理自网络，侵删。

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

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

相关阅读 >>

Delphi xe6 读取android设备联系人

Delphi字符串隐藏一法

Delphi里如何限制form的大小

Delphi中从dll,exe,icl中提取图标

Delphi 如何确定活动桌面是否已启用

Delphi中的进制转换

截取程序的网络封包（Delphi hook api）

Delphi根据url获取缓存文件的方法

Delphi 获取闪盘列表

Delphi防止同时出现多个应用程序实例

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

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