如何要把整个目录下的gif图片，存入资源文件中?(50分)

如何要把整个目录下的gif图片，存入资源文件中?
我不想一个个的写，有什么办法可以整个目录存入，然后整个目录读出？

procedure TForm1.WriteResFile(YourPathAndFileExt,ResFile:string);
const
MYFILE='MYRESFILE';
var
sr: TSearchRec;
FileAttrs,FileCount: Integer;
filelist:tstrings;
path:string;
begin
path:=copy(YourPathAndFileExt,1,LastDelimiter('/',YourPathAndFileExt));
filelist:=tstringlist.create;
FileAttrs:=0;
FileCount:=1;
if FindFirst(YourPathAndFileExt, FileAttrs, sr) = 0 then
begin
repeat
filelist.Add(MYFILE+' '+MYFILE+IntToStr(FileCount)+' '+path+sr.Name);
inc(FileCount);
until FindNext(sr) <> 0;
FindClose(sr);
end;
filelist.savetofile(ResFile);
filelist.free;
end


调用：
WriteResFile('d:/*.gif','d:/myres.rc');//将d:/的所有gif文件都写入d:/myres.rc资源文件
然后
利用brcc32编译成.res就可以了

那读出来不是也得一个个先读出来吗？

对呀，同样用个tstringlist.loadfromfile就可以了，就一个循环嘛

接受答案了.