导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/9/5 17:17:42
标题:
如何把音乐文件和EXE文件编译在一起?
浏览:2044
加入我的收藏
楼主:
如何把音乐文件和EXE文件编译在一起? 我想生成一个EXE文件,一运行就自动播放音乐,音乐文件必须已经被包含在EXE文件中,而不是去程序外部的文件中加载, 我试着写了,但编译错误:如何修改??? 一、定义资源文件: 代码: src1.rc: S1 WAV wav1.Wav 二、使用命令行:brcc32 src1.rc src1.res。 通过! 三、在此不通过: {$R sample.res}//编译预处理指令 procedure Tform1.formCreate(Sender:TObject); var wav_handle :pchar; h:HRSRC; h1:HGLOBAL; begin h := FindResource(HInstance,'S1','WAV'); h1 := LoadResource(HInstance, h); wav_handle := Pchar(LockResource(h1)); sndplaysound(wav_handle, snd_async or snd_Memory); //总是在此不能通过编译!为何? end;
----------------------------------------------
作者:
zizii (高高高级馒头)
★☆☆☆☆
-
神秘会员
2003/9/5 17:24:42
1楼:
提示什么错误,你试试看: var h: THandle; p: pointer; begin h := FindResource(hInstance, 'S1', 'WAVE'); h := LoadResource(hInstance, h); p := LockResource(h); sndPlaySound(p,SND_MEMORY or SND_SYNC); UnLockResource(h); FreeResource(h); end; 注意,在uses要添加mmsystem;才能使用sndplaysound()函数。
----------------------------------------------
维护世界和平,共创美好盒子。
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/9/6 7:17:34
2楼:
谢谢大哥
----------------------------------------------
作者:
Giver (Giver)
★☆☆☆☆
-
盒子活跃会员
2003/9/6 14:23:42
3楼:
你也可以把它放到exe面啊,我在这里的一个swf2scr的演示,你可以看看
----------------------------------------------
http://www.gaiwei.com
作者:
bios (阿贡)
★☆☆☆☆
-
盒子中级会员
2003/9/6 17:32:43
4楼:
在哪里啊?
----------------------------------------------