DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lorangeve
今日帖子: 41
在线用户: 16
导航: 论坛 -> 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楼: 在哪里啊?
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS