delphi 播放wav声音

procedure TForm13.btn1Click(Sender: TObject);
begin
   play_wav_bykeys('1',0);
end;

function TForm13.play_wav_bykeys(filename: string; xflag: Integer): boolean; //  xflag=1 wait play; xflag=0;nowait
const
  SND_DIR  = '.\wav\';
var
  s,f:String;
begin
  sndPlaySound(nil, 0); //停止发音
  s :=Format('%s%s.wav',[SND_DIR,filename]);//播放wav文件夹下filename声音文件

  if FileExists(s) then
  begin
    if xflag = 0 then  sndPlaySound(PChar(s), SND_ASYNC)
    else sndPlaySound(PChar(s), SND_SYNC);
  end;
end;

转载于:https://www.cnblogs.com/yangxuming/p/6673978.html