如何在Delphi中发挥的WAV文件？ [英] How to play a wav-File in Delphi?

问题描述

哪些功能可在德尔福播放声音文件？

Which functions are available within Delphi to play a sound-file?

推荐答案

下面是最快的方式：

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;

这篇关于如何在Delphi中发挥的WAV文件？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！