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;?

轉載于:https://www.cnblogs.com/yzryc/p/6374418.html

總結

以上是生活随笔為你收集整理的如何将Wav文件做到EXE文件里的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。