50分简单流~ (50分)

这是合并程序~
Function AddtoFile(SourceFile,TargetFile:string):Boolean;
var
Target,Source:TFileStream;
MyFileSize:integer;
begin
try
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive);
try
Target.Seek(0,soFromEnd);//往尾部添加资源
Target.CopyFrom(Source,0);
MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小，并写入辅程尾部
Target.WriteBuffer(MyFileSize,sizeof(MyFileSize));
finally
Target.Free;
Source.Free;
end;
except
Result:=False;
Exit;
end;
Result:=True;
end;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
调用是用AddtoFile(a.exe,b.exe)
^^
问:
如何合并后进行保存??
(详细点,因为比较菜)

这个函数本身就是读一个文件，然后追加保存到另外一个文件的结尾的。
也就是读A。exe的文件内容，保存到b。exe里，然后b里面的内容就是a和b的合并了。
不知道说明白没有 []

b已经是a,b合并后的文件了

to:rebirth
先给你加25分
因为没有明白~~~~~~~
如果这样:
addfile(d:/a.exe,d:/b.exe)
(菜) 是不是D盘上的B程序就变成了两程序合并那个??

多人接受答案了。

toengjinlongex
也给你加25了
可我还是不明白~
^
我试过了,
经过上^以后B程序并没有变~为什么?(菜)