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)
^^
问:
如何合并后进行保存??
合并完了以后,,,,只能运行第一个程序,,,但是第二个程序已经加进来了第一个程序
(变大了)!!
^^^^^^^^^^^^^^^
问:如何同时执行两个程序??
(详细点,因为比较菜)

TFileStream在释放的时候自动保存文件。
你这样的合并没多大意义。

那该怎么办????
(菜)

在 finally 前加上此甸：
Target.SaveToFile(TargetFile);//存放到文件