快速开发搜索wav并播放app

1、新建项目。

 

2、在form上拖拽一个template中的TSearchJPEGImage的组件模板。

 

 3、修改后缀名和搜索路径。

 4、修改checkListbox的click事件。

uses
  MMSystem ;

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  PlaySound(PChar(CheckListBox1.Items[CheckListBox1.itemindex]), 0, SND_ASYNC);
end;

5、下载百度网盘中的音效数据，直接点击，在线解压，选择需要下载的wav文件保存在默认路径下。

 

 

 

 6、运行app下图所示。

 点击左侧的wav文件，即可播放音效。