哭呀，搞不懂，写exe文件配置器的问题，高手来哈。
我需要用b程序对a程序配置，把任意一个图片文件和文本文件写到a程序里，a程序发布出去后，里面带b程序对他写如的图片文件跟文本文件。

下面是b程序的配置代码：
var
Target,str:TFilestream;
Size:Integer;
sr: TSearchRec;
Begin
FindFirst( 'd:\a.exe ', faAnyFile, sr);
if (sr.Size div 1024) > 500 then
begin
showmessage( '已经添加好了！ ');
exit;
end;
try
//写如图片
str:=TFileStream.Create( 'My.bmp ',fmOpenRead or fmShareExclusive);
Target := TFilestream.create( 'd:\a.exe ', fmOpenWrite or fmShareExclusive);
Target.Seek(0,soFromEnd);
//往辅程序的尾部添加资源
Target.CopyFrom(str,0);
Size:=str.Size + Sizeof(Size);
//计算资源大小，并写入辅程序尾部
Target.WriteBuffer(Size,Sizeof(Size));
Target.Free;
str.Free;
//写入文字
str:=TFileStream.Create( '1.txt ',fmOpenRead or fmShareExclusive);
Target := TFilestream.create( 'd:\a.exe ', fmOpenWrite or fmShareExclusive);
Target.Seek(0,soFromEnd);
//往辅程序的尾部添加资源
Target.CopyFrom(str,0);
Size:=str.Size + Sizeof(Size);
//计算资源大小，并写入辅程序尾部
Target.WriteBuffer(Size,Sizeof(Size));
finally
Target.Free;
str.Free;
end;

上面的代码能成功的把图片文件跟文本文件写到a里。

再看a的读出配置文件的代码
var
Source:TFilestream;
str:TMemoryStream;

Size:Integer;
Begin
try
str:=TMemoryStream.Create;
Source := TFilestream.create(Application.ExeName, fmOpenRead or fmShareDenyNone);
Source.Seek(-Sizeof(Size),soFromEnd);
//读出资源大小
Source.ReadBuffer(Size,SizeOf(Size));
//定位到资源的开始位置
Source.Seek(-Size,soFromEnd);
//取出资源并存到文件中
str.CopyFrom(Source,Size - SizeOf(Size));
str.SaveToFile( '1.txt ');
//显示
Memo1.Lines.LoadFromFile( '1.txt ');

Finally
str.Free;
Source.Free;
end;

该段代码能成功的把 添加到尾端的文本文件读出，当是图片文件没办法读出来，有什么方法能把图片文件跟文本文件都分解出来哈，上面的代码原本是我辛苦找的，但只能添加一个文件，现在我需要加2个文件，但对流的造作不熟悉，不知道怎么改好，大虾救救俺呀，

[解决办法]
哦，你已经记下了图片位置；
在你读取那一段你在继续读一遍就可以得到图片了
var
Source:TFilestream;
str:TMemoryStream;
Size:Integer;
Begin
try
str:=TMemoryStream.Create;
Source := TFilestream.create(Application.ExeName, fmOpenRead or fmShareDenyNone);
Source.Seek(-Sizeof(Size),soFromEnd);
//读出资源大小
Source.ReadBuffer(Size,SizeOf(Size));
//定位到资源的开始位置
Source.Seek(-Size,soFromEnd);
//取出资源并存到文件中
str.CopyFrom(Source,Size - SizeOf(Size));
str.SaveToFile( '1.txt ');
//显示
Memo1.Lines.LoadFromFile( '1.txt ');
//添加以下代码是读取图片的
Source.Seek(-Sizeof(Size),soFromCurrent);
Source.ReadBuffer(Size,SizeOf(Size));
Source.Seek(-Size,soFromCurrent);
str.CopyFrom(Source,Size - SizeOf(Size));
str.SaveToFile( 'My.bmp ');
image1.Picture.Graphic.loadFromSteam(str);//添加一个image来显示
Finally
str.Free;
Source.Free;
end;

[解决办法]
还是这个问题？

GreenWaterBlueSky(碧水蓝天) 的回复思路也是对的，不过在读完1.txt后，Source的Position已经又移到了记载1.txt大小的位置，需要再次移到1.txt的数据开始位置
Source.Seek(Size,soFromEnd);

然后再用GreenWaterBlueSky的代码读取图片大小和数据
> > >
//添加以下代码是读取图片的
Source.Seek(-Sizeof(Size),soFromCurrent);
Source.ReadBuffer(Size,SizeOf(Size));
Source.Seek(-Size,soFromCurrent);
str.CopyFrom(Source,Size - SizeOf(Size));
str.SaveToFile( 'My.bmp ');