调用含有声音的资源文件错误？

Question

我是这样做的：
var
  findhandle, reshandle: THandle;
  resPtr: Pointer;
begin
  findhandle := findresource(hinstance, '次源的名称', 'wave');
  if findhandel <> 0 then
  begin
    reshandle := loadresource(hinstance, findhandle);
    if reshandle <> 0 then
    begin
      resptr := lockresource(reshandle);
      if resptr <> nil then
        sndplaysound(pchar(resptr), snd_ASync or snd_Memory);
      unlockresource(reshandle);
    end;
    freeresource(findhandle);
  end;
end;

Answer 1

楼上的朋友，这样好象有点麻烦吧！我将应用程序用到的几十个声音文件都包含在资源文件中，程序中要多处调用。本来用playsound(filename,0,snd_filename); 可以直接调用声音文件，但我想是不是有点慢，再一，我也不想让程序安装后，含有如此至多的声音文件。

Answer 2

呵呵，我也是用一个资源.res文件啊。你用resource workshop做资源文件然后照着试一试。