2011年2月13日 星期日

Delphi音效轉入資源檔

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進執行檔內,不需額外包裝。

沒有留言: