首先,要为Delphi7安装TGIFImage.v.2.2.D7
点这里下载:TGIFImage.v.2.2.D7
安装完成后,Delphi7就可以支持Gif了。
然后使用RES文件的话肯定是先要新建一个RC文件。
比如说我们新建一个文件images.rc,使用一种文本编辑器打开这个文件然后在里面写上如下类型的内容:
waitGIF GIF wait.gif
第一个‘waitGIF’是以后程序里面能够调用到的名称。
第二个‘GIF’ 是对类型的描述,随便你自己定义。
第三个‘wait.gif’ 这个是实际文件和这个RC文件的相对位置。(打完包后实际文件就被包含在RES文件中了)
然后就可以了。
在程序中可以这样使用:
方法:
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;调用:
ExtractRes(‘GIF’,’waitGIF’,’wait.gif’);
这样的话那个文件就可以被从RES中释放出来了。
然后想怎么用就怎么用了。
当然Res还有SaveToStream方法,所以可以不释放出来,保存在内存中也可以一样调用了~
自己试吧~