Delphi中资源文件使用详解
作者 凌众技术
来源 互联网
浏览
发布时间 2012-01-14
| r为光标在资源文件中的名字。如果希望在其他控件上使用定制光标，例如Panel控件，只需在程序的适当处加入以下代码： Panel1.cursor:=35; 2.位图的调用 新建一项工程，添加一Timage控件，在需要显示的地方写以下代码： Var mymap:Hbitmap; begin mymap:=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 不支持 支持 字符串 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: Delphi初学者参考（二）下一篇: 共享软件防破解的实用招法
关于Delphi中资源文件使用详解的所有评论
