如何在Delphi中播放wav-File？

Question

Delphi中有哪些功能可以播放声音文件？

Answer 1

这是最快的方式：

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;

Answer 2

使用WIN32-API（单位MMSystem）中的sndPlaySound函数：

sndPlaySound（'C：\ Windows \ Media \ Tada.wav'，SND_ASYNC）;

Answer 3

此页面解释了如何使用函数sndPlaySound以及如何将wav文件作为资源嵌入： http://www.latiumsoftware.com/en/delphi/00024.php

Answer 4

简单：

Element.scrollTop = Element.scrollHeight - Element.offsetHeight;

人们也在引用sndPlaySound，但这只是为了向后兼容。 所以，不要使用它！

您可能也对此感兴趣：

Element

Answer 5

完整教程可在以下网址获得：http://sheepdogguides.com/dt3f.htm

有点老了。但它应该有用。