delphi简单的播放声音

本文整理自网络，侵删。

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

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

相关阅读 >>

Delphi 监控其它进程

Delphi 实现定时功能

用Delphi判断操作系统是否win10

Delphi for 循环 downto用法

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi代码中嵌入汇编asm代码

Delphi 提升进程权限到sedebugprivilege

Delphi unigi unidbtreegrid展开叠起 unidbgrid自动调节列宽

Delphi 从摄像头获取照片并转换为特定的格式

Delphi获取硬件信息

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

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