procedureTaboutBox.FormShow(Sender:TObject,',',');
begin
//播放当前目录下的welcome.wav文件
sndplaysound('welcome.wav',snd_async,',',');
end;
procedureTAboutBox.FormClick(Sender:TObject,',',');
begin
//停止播放
sndplaysound('',snd_async,',',');
end;
关键字词:
