关于 dll 中的资源的调用问题

Question

我写了下面一个dll和一个测试程序，但是测试的时候确没有声音，请问应该怎么解决，谢谢！library Project2;
uses
  SysUtils,
  MMsystem,
  Classes;{$R *.res}
{$r shang.res}   //其中有声音文件 shang.rc 为 mymusic wav test.wav procedure  playMyMusic;
begin
PlaySound(Pchar('mymusic'),0,Snd_Async or snd_Resource);
end;exports
playMyMusic;begin
end.测试程序，只有一个form 和一个buttonunit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
procedure playMyMusic; external 'project2.dll' ;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  playMyMusic;
end;end.

Answer 1

资源文件有没有写错？你先单独测试一下先。