Delphi中资源的简单应用

======================================================

注：本文源代码点此下载

======================================================

delphi中资源的简单应用。首先,我们先创建一个扩展名为:.rc的文本文件,然后在该我们文件中输入:
资源标识符+关键字+资源文件名
我们先来看一看这几个文字的具体含义:
1.资源标识符:程序代码调用该资源时用以识别的标志;
2.关键字:资源的文件类型;
3.资源文件名:你现在需要包含道程序里的文件,这个文件可以是.exe, 也可以是.dll,甚至可以是一个flash文件。等等。
举个例子吧,比如我要封装一个flash道程序里,我们可以这样写.rc文件
flash swffile xyz.swf
现在我们需要把.rc文件以及xyz.swf这两个文件放在同一个文件夹里,然后去delphi的目录里拷贝一个brcc32.exe过来,马上我们就要创建资源文件了,其实生成资源很简单,最懒惰的方法就是直接把那个扩展名为.rc的文件拖到brcc32.exe上就可以了,你也可以写一个批处理:brcc32 some.rc 其中some为你的rc文件名,然后运行bat,这两种方法都可以在当前目录生成一个与.rc同名但扩展名为res的资源文件。
资源的创建大概如此
举一个例子吧!
unit utflash;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, olectrls, shockwaveflashobjects_tlb;
type
tform1 = class(tform)
shockwaveflash1: tshockwaveflash;
procedure formcreate(sender: tobject);
procedure formclose(sender: tobject; var action: tcloseaction);
private
{ private declarations }
public
{ public declarations }
end;
var
form1: tform1;
implementation
{$r *.dfm}
{$r swffile.res}
procedure flashrestofile(const resname, restype, filename : string);
var
swfres : tresourcestream;
begin
swfres := tresourcestream.create(hinstance, resname, pchar(restype));
try
swfres.savetofile(filename);
finally
swfres.free;
end;
end;
procedure tform1.formcreate(sender: tobject);
begin
flashrestofile('flash', 'swffile', 'pets.swf');
shockwaveflash1.width := form1.width;
shockwaveflash1.height := form1.height;
shockwaveflash1.movie := extractfilepath(application.exename) + 'pets.swf';
shockwaveflash1.play;
end;
procedure tform1.formclose(sender: tobject; var action: tcloseaction);
begin
if fileexists('pets.swf') then deletefile('pets.swf');
end;
end.
绿色通道:好文要顶关注我收藏该文与我联系



======================================================

在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定
这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/