delphi简单的播放声音

本文整理自网络，侵删。

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

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

相关阅读 >>

Delphi idhttp中get与post的区别

Delphi 实现qq窗体的缩入伸出功能

Delphi计算md5

Delphi webbrowser 操作记要

Delphi stringgrid常用属性和常用操作

Delphi获得系统当前时间日期和格式化时间

Delphi用socket api实现路由追踪

Delphi getwindowhandle

Delphi 和微软的 azure 云存储

Delphi excel数据导入数据库表

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

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