请问如何播放wav文件？因为频繁播放这个声音，能不能不用每次读硬盘调到内存里？

Question

有什么好办法吗？

Answer 1

if you are going to play a sound more or less often, you should consider loading the resource in memory and playing it from there:uses Windows, MMSystem;{$R sounds.res}var
  tada: Pointer;procedure TForm1.Button1Click(Sender: TObject);
begin
  sndPlaySound(tada, SND_MEMORY
    or SND_NODEFAULT or SND_ASYNC);
end;initialization
  // Here we use some castings to avoid using another variable
  tada := Pointer(FindResource(hInstance, 'tada', 'wave'));
  if tada <> nil then begin
    tada := Pointer(LoadResource(hInstance, HRSRC(tada)));
    if tada <> nil then tada := LockResource(HGLOBAL(tada));
  end;
end.

Answer 2

http://www.latiumsoftware.com/en/delphi/00024.php

Answer 3

有两种方法
1、如aiirii(ari-爱的眼睛) 所说，使用资源；
2、如下
procedure TForm1.FormCreate(Sender: TObject);
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  ms.LoadFromFile('你的文件');
  sndPlaySound(ms.Memory, SND_MEMORY
    or SND_NODEFAULT or SND_ASYNC);
  
end;

Answer 4

aiirii(ari-爱的眼睛)真的是高手，以你为目标。
学习

Answer 5

Taken(铁拳) 说的对。如果音乐用的太频繁把音乐加载到可执行文件中。
使用这个语句播放  PlaySound('WAV资源名称',HInstance,SND_RESOURCE);

Answer 6

请问如何建资源文件？sndPlaySound(tada, SND_MEMORY
    or SND_NODEFAULT or SND_ASYNC);
其中SND_MEMORY or SND_NODEFAULT or SND_ASYNC这三个参数，用哪个比较合适。要求同步播放，而不是在后台播放。播放完毕才能执行下一语句。

Answer 7

delphi7的file菜单的new里面只有一个resource dll wizard.
哪位大侠能简单介绍一下如何建立和使用资源文件？

Answer 8

可以的，就上面那样了Google上有N多例子了Project－Resources打开资源管理器，右键添加就是了
都基本上不需要使用什么RC编辑器的

Answer 9

http://www.138soft.com/htm/AuthorArt/index.htm谈Delphi编程中资源文件的应用