1.使用文字編輯器編輯一個文字檔(如Sound.rc),內容大致如下:
RING WAVE RING.WAV //有很多檔案,可以分成數行注意大小寫。
記得該文字檔同目錄中必須要有RING.WAV這個檔案。
2.使用brcc32(安裝DELPHI後就有)這個檔案編譯Sound.rc。
brcc32 Sound.rc
編譯後會產生一個Sound.res。
3.在你的專案中加入Sound.res(記得把檔案放入專案的同目錄下)。
program Test;
uses
Forms,
Windows,
.....;
{$R *.res}
{$R Sound.RES}
begin
Application.Initialize;
Application.Title := 'Test';
....
Application.Run;
end.
4.在FORM的CREATE事件中,加入下列程式碼,並且記得uses MMSystem。
PlaySound('RING',hinstance,SND_ASYNC or SND_RESOURCE);
5.這樣連音源檔案都可以LINK進執行檔內,不需額外包裝。
沒有留言:
張貼留言