如何用声音 资源文件

10 | 问答知识库用户 |浏览249次
收藏|2014/05/17 21:59
我有个 sound.res 调用之后 运行却弹出 “............resource sound is not found ....” 那个sound.wav在目录下

  ★★★ 问题补充 ★★★  (2010-5-28 23:58:53)
错误在哪里


unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation 
uses Mmsystem; 
{$R *.dfm} 
{$R sound.res}
procedure TForm1.Button1Click(Sender: TObject); 
var 
res: TResourceStream;
begin
res := TResourceStream.Create(HInstance, 'sound', 'WAVE');
PlaySound(res.Memory, HInstance, SND_ASYNC or SND_MEMORY);
res.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.

满意回答

2014/05/18 21:46

请参考:
http://www.xuedelphi.com/wenzhang/yytg/2008/05/200805312454.htm
请检查细节上的问题

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...