如何将Wav文件做到EXE文件里？

Question

使用过C++的朋友们都知道，资源在Windows编程里非常重要，合理地运用资源 
可以使程序更加灵活。其实在Delphi里，同样也可以制作资源，只不过Delphi本 
身对可视的编程强调很多，对资源的制作就没有多加解释，也没有象Borland 
C++ 里提供了资源制作工具Resource WorkShop，这些都没有关系，下面我就通 
过将WAV文件做成资源，从而编译进EXE文件来介绍一下如何利用Delphi本身 
提供的工具制作资源。 
16位的Delphi 1.0和32位的Delphi2.0、3.0都提供了资源 
编译工具，其中 Delphi 1.0的资源编译器叫BRCC.EXE，Delphi 2.0的资源编译器 
叫BRCC32.EXE 用来编译32位资源，所有资源编译器都只提供了命令行版本， 
没有提供Windows 版本。制作一个资源一般要通过以下几个步骤： 
1)编写.RC文件 
..RC文件是资源的源文件，编译器也就编译这个文件，生成.RES的资源文件 
首先在我们的项目子目录中建立一个纯文本文件，起名叫Sound.rc，文件中 
有一行，内容为： 
SOUND1 WAV SOUND.WAV 
其中SOUND.WAV为一个Windows下普通的声音文件 
2)编译它 
在DOS的提示符下打 BRCC SOUND.RC 硬盘哗啦啦转一会儿后，就编译完了 
3)制作程序 
这也是最复杂，最灵活的一步，首先启动Windows, 再启动Delphi， 并且将项目 
中的文件保存到我们的项目中的子目录中。 在Unit1.pas中找这么一行 
{$R *.DFM} 
把我们的资源文件就声明在后面 
{$R SOUND.RES} 
然后，在Form1中声明两个全局变量 
PtrSound : PChar; 
hRes : THandle; {handle to the loaded resource 
if 0 indicates nothing playing} 
再在Form1的Create事件中写下如下代码 
procedure TForm1.FormCreate(Sender: TObject); 
var hResInfo : THandle; 
begin 
hResInfo := FindResource(HInstance, ’SOUND1’, ’WAVE’); 
hRes := LoadResource(HInstance, hResInfo); 
if hRes > 32 then {its a good load} 
begin {lock the resource} 
ptrSound:=LockResource(hRes); 
end; 
end; 
然后在Form1中放一个按钮Button1，写如下代码： 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
sndplaysound(ptrSound,snd_async or snd_Memory); 
end; 

Answer 1

参考:
自己做一个一个资源文件的描述文本RC文件，例如 sample.rc ，“记事本”程序创建就行了。然后可以输入一些我们要定义的资源，例如：MEN BITMAP c:\bitmap\men.bitmap
ARJ EXEFILE c:\arj.exe
MOV AVI c:\mov.avi然后用BRCC32把这个RC文件编译成sample.res（真正的资源文件）。在Delphi的工程文件中使用 $R 编译指令让Delphi包括资源到EXE文件里面。{$R sample.res}这样我们就可以在这个单一的执行文件中调用资源了。举例如下：EXEFILE：procedure ExtractRes(ResType, ResName, ResNewName : String);
var 
Res : TResourceStream; 
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free; 
end;AVI：procedure LoadAVI;
begin
{Avi1是一个TAnimate类}
Avi1.ResName:='AVI';
Avi1.Active:=True;
end;

Answer 2

看看吧！
Unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MMSystem;  //  Must add MMSystem to use PlaySound
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
{$R SOUNDS.RES}   //  <--  This adds the compiled RES file to the Executable
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  {Use snd_ASync to make the sound 'interruptible', or snd_Sync to force full
   playback.}
  PlaySound(PChar('IQUIT'), hInstance, snd_ASync or snd_Resource);
end;
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PlaySound(PChar('ARNOLD'), hInstance, snd_Sync or snd_Resource);
end;
end.

Answer 3

Delphi的安装盘里面有Resoure WorkShop的，只不过不会默认安装。你手动把它装上就行了