如何把bmp和wave文件加到exe文件。

caijinming 2003-08-24 03:28:14

我写了一个小程序包含3张BMP和2个WAVE文件和EXE文件。
请问：
1.如何做成只有一个EXE文件（不是指打包做安装程序）？
2.把资源文件做成1个数据文件？
（我是不想让别人换我的BMP和WAVE）

...全文

32 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

akiko 2003-08-24

打赏
举报

放到资源中,Resource View--Insert,Import...

Vid2Flash [视频图像到Flash转换器]是一个极富特色的格式转换程序。它可以把几乎所有常见的视频以及图像文件转换为Flash. Vid2Flash [视频图像到Flash转换器]支持的视频文件格式包括：AVI，MPG，MOV等；图像格式包括：BMP，JPG，GIF，PNG等。您只需要简单的2步就可以完成转换操作。而且您还可以为图像文件添加背景WAVE音乐。Vid2Flash [视频图像到Flash转换器]绝对是您制作网页动画的好帮手。

'这是从资源文件里调用msvbvm60.dll 注册的代码 '本代码是放在模块 Moudule1.bas 里面,不是放在Form1里面的. '要注册.dll .ocx最好是放在.bas里面,并把启动项设为Sub Main '否则有可能在还没进入窗体执行注册的动作前,就产生错误而中断了 '尤其是98系统之下的msvbvm60.dll '先建立一个资源文件, 在 Custom 101 装载 msvbvm60.dll Global winsys$, appdisk$, aa$ Sub Main() On Error Resume Next If App.PrevInstance Then MsgBox "本系统已运行中, 不得重复加载!!", vbOKOnly, "菜鸟多媒体桌面工具": End appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") winsys = GetSyspath Call regdllocx Form1.Show End Sub Private Sub regdllocx() On Error Resume Next Dim byt() As Byte aa = winsys & "msvbvm60.dll" If Dir(aa) = "" Then byt = LoadResData(101, "CUSTOM") Open aa For Binary As #1 Put #1, 1, byt() Close #1 End If If Dir(aa) <> "" Then aa = "Regsvr32 /s " & aa Call Shell(aa, vbHide) End If End Sub Public Function GetSyspath() As String '获取system32路径 aa = Trim(Environ("ComSpec")) GetSyspath = Mid(aa, 1, InStrRev(aa, "\")) End Function '直接从资源文件调用 .bmp图片(只允许.bmp),不必释放到硬盘 'Me.Icon = LoadResPicture(101, vbResIcon) '注释：加载图标 'Picture1.Picture = LoadResPicture(101, vbResBitmap) '注释：加载位图 'Command1.MouseIcon = LoadResPicture(101, vbResCursor) '注释：加载光标' '播放 WAVE 声音(只允许.wav) Option Explicit Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Const SND_ASYNC = &H1 Const SND_MEMORY = &H4 Private Sub Command1_Click() Dim bArr() As Byte bArr = LoadResData(101, "CUSTOM") DoEvents sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY End Sub 本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/cbm666/archive/2008/03/08/2158287.aspx

本课程教大家设计一个完整的MVC功能，基本功能接近微软原生MVC框架，在某些方便提供更为强大的功能1.接管HttpModule，实现类似于原生mvc路由机制，对文件访问添加权限限制。2.定义控制器类，定义四种Action视图（View视图，Json视图，File视图，Bmp视图），可返还网页，json，文件和图片。3.实现类似原生MVC参数映射，包括复合模型的映射，参数直接写在Action中。4.实现ActionFilter，提供更为强大的Action控制功能，可完整控制Action执行链，不仅仅只提供个权限验证功能。5.实现动态视图，类似于Razor的语法，我们提供一个可返回对象到View视图中去渲染页面，这里使用html模板语法和动态编译。

功能特点： 1、高效率生成GIF动画文件；2、输入多种格式文件，包括BMP，JPG，GIF等格式；3、GIF帧延时自定义；4、属性灵活控制GIF输出；5、能够装载并回放动态GIF文件；6、获取帧信息，删除指定帧；7、输出动态GIF指定帧为静态GIF文件；8、按帧输出动态GIF为静态GIF图片 9、从动态GIF文件里复制帧到另外一个GIF指定帧里 10、获得GIF的帧数及GIF的帧延迟11、组件用于WEB开发时只需要服务器端注册即可，无须客户端安装。12、性能稳定,消耗系统资极少，无内存泄露；13、可用于asp，vb,vc,vs.net,delphi等开发；技术支持：QQ：199644181 MSN：wave12com@hotmail.com

3D Exploration 1.833的序列号，文件是个文本文件。用UltraEdit之类的工具打开，将文本文件中的'Enterprise License:'和'Note: no linebreaks in this serial number'之间的那段全部copy到3D_Exploration 1.833注册向导对话框中，然后点击注册，最后重启软件就可以了！一个可以观看3D绘图软件制作的文件工具。可观看的3D文件包括3D Studio Binary(*.3ds)、3D Studio Project(*.prj)、 3D Studio ASCII(*.asc)、Caligari Objects&Dcenes(*.cob、*.scn)、 Light Wave Objects(*.lwo,*.lw)、 DirectX(*.x)、Autocad DXF(*.dxf)、 QuakeI Model(*.mdl)、QuakeII Model(*.md2)、Objec t File Format(*.off)、*.raw、*.obj等，平面图型有bmp、rle、dib、gif、jpg、png、tif、tga、pcx 等，在观看3D文件时可以用鼠标调整不同的角度观看。

VC/MFC

16,472

社区成员

421,732

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

VC/MFC社区版块或许是CSDN最“古老”的版块了，记忆之中，与CSDN的年龄几乎差不多。随着时间的推移，MFC技术渐渐的偏离了开发主流，若干年之后的今天，当我们面对着微软的这个经典之笔，内心充满着敬意，那些曾经的记忆，可以说代表着二十年前曾经的辉煌……
向经典致敬，或许是老一代程序员内心里面难以释怀的感受。互联网大行其道的今天，我们期待着MFC技术能够恢复其曾经的辉煌，或许这个期待会永远成为一种“梦想”，或许一切皆有可能……
我们希望这个版块可以很好的适配Web时代，期待更好的互联网技术能够使得MFC技术框架得以重现活力，……

试试用AI创作助手写篇文章吧

+ 用AI写文章