制作RES资源文件

[转贴]  
  谈资源文件在delphi中的应用  
   
  资源文件一般为扩展名为res的文件。在vc中资源文件用得非常普遍,  
  但delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的  
  资源编译工具brcc32.exe(一般位于/delphi/bin目录下),我们完全可  
  以做出跟vc一样效果的文件来。/资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一  
  起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如  
  在一条程序中你要临时调用一幅图片,一般作法是把图片放在某一路径下  
  ,但如果用户路径误删你的图片文件,则可能  
  使程序找不到相应文件而出错崩溃。另外,如果你想自己的程序界面美观,  
  想用一些自定义光标,也要用到资源文件。  
  资源文件的使用步骤为:  
  1.编写rc脚本文本  
  用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如:  
  mycur   cursor   move.cur   //加入光标  
  mypic   bitmap   water.bmp   //加入位图  
  mywav   wave   happy.wav   //加入声音  
  myavi   avi   epoen.avi   //加入视频  
  myico   icon   cjt.ico   //加入图标  
  格式分别为在资源文件中的名称->类型->实际文件名称,例如上面  
  第一行   定义一个名为mycur的光标,实际名称为加入光标move.cur.  
  2.将rc文件编译成res资源文件  
  将脚本文件和实际文件拷到brcc32.exe所在目录,执行dos命令。  
  格式为:brcc32   脚本文件(回车),例如有一名为myfirst.rc的脚本文件,  
  则执行   brcc32   myfirst.rc(回车)即可。如果你是懒人,也可新建一批  
  处理文件,内容   只有一行:brcc32   mufist.rc.(因为delphi安装后一般会  
  在自动批处理文件中指明搜索路径的。)如果编译成功,则会生成一个结尾  
  为res的文件,这个   文件就是我们需要的资源文件。  
  3.在delphi单元中加入资源文件  
  将生成的res资源文件拷贝到你所编程序的路径下,在单元文件  
  {$r   *dfm}后加上一句{$r   mufirst.res},则将res文件加入去,编译后资    
  源文件即已包含在可执行文件中了。若你有多个资源文件,也按上法依次  
  加入。  
  4.在delphi程序中调用资源文件  
  资源文件在delphi中的关键字为hinstance.下面给出具体用法  
  <1>光标的调用  
  首先在程序中定义一个值大于0的常量,因为delphi本身用0-负  
  16来索引   默认的光标,所以我们制定的光标应从表面上1开始索引。然后  
  在窗口的oncreat事件中添加以下代码:  
  screen.cursor[35]:load   cursor   (hinstance,mycur);  
  其中35为大于1的常量,mycur为光标在资源文件中的名字。如  
  果希望在   其他控件上使用定制光标,例如panel控件,只需在程序的适当  
  处加入以下代码:  
  panel1.cursor:=35;  
  <2>位图的调用  
  新建一项工程,添加一timage控件,在需要显示的地方写以下代码:  
  var   mymap:hbitmap;  
  begin    
  hmymap:=loadbitmap(hinstance,mypic);  
  image1.picture.bitmap.handle:=mymap;  
  end;  
  其中"mypic"为位图资源文件中的名称。  
  〈3〉avi文件的调用  
  新建一工程,添加一animate控件,在需要的地方加入:  
  animater1.resname:=myavi;  
  animater1.active:=true;  
  其中myavi为视频文件在资源文件中的名称。  
  〈4〉调用wav文件  
  在uses中加入mmsystm单元,以便在程序中播放wav文件。播放时playsound  
  (pchar(mywav),hinstance,sndsync   or   snd_resource);其中mywav为声音  
  文件在资源中的名称。  
  〈5〉加入光标  
  加入光标比较容易,只要将res文件加入单元文件中即可。但需注意,名称  
  最好取"w"."ww"等,使第一个字母尽量靠后,以免与主程序的图标顺序颠倒。  
  补充:1.资源类型除上述类型外,还可以字体文件,字符串文件等。  
  2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。  
  下面我们来试验一下:  
  新建一工程,将唯一的一个form删除,然后修改工程文件。增加一句  
  {$apptype   console},在uses子句中加入mmsystem,并将其它引用单元  
  删掉。将begin和end之间语句删掉。至此,我们就可和turbo   pascal  
  下编程序一样,且还可以调用windows的api和资源。将资源文件----  
  {$r   myfist.res}加入。在begin和end之间写下:  
  writeln(演示程序,按任意键开始!);  
  readln;  
  playsound(pchar(mywav),hinstance,snd_sync   or   snd_resource);  
  writeln(演示结束!);  
  运行程序,将弹出一个标准dos窗口,按任意键播放声音文件。是不是很cool呢!  
  我曾下载过一个播放器,在其安装目录下我发现有一"dos程序",用鼠标双击它  
  便弹出一个dos窗口,显示dos时代特有的画图,并有背景音乐!可能就是用这个  
  方法做的。  
  3.delphi本身自带了一个叫image   editor的工具,同样可以编辑资源文  
  本,但和本文的方法比较,可得出下表:  
   
  **************************************  
  image   editor   brcc32  
   
  bmp   只支持16位色   任意色  
   
  光标   黑白两色   任意色  
   
  ico   只支持16位色   任意色  
   
  avi   不支持   支持  
   
  wav   不支持   支持  
   
  字体    
  字符串   不支持   支持  
  其他    
  **************************************** 
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
'这是从资源文件里调用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

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值