windows – 如何在Delphi中播放wav文件？

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  sndplaySound('C:\Windows\Media\Tada.wav',SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  sndplaySound(nil,0); // Stops the sound
end;