function addstream(filename:string):boolean; //此函数为添加函数,参数为目标文件
var t:tfilestream;
mystream:tmemorystream;
h,fh:hwnd;
begin
mystream:=tmemorystream.create;
mystream.loadfromfile(application.ExeName );//装入程序自身
t:=tfilestream.Create(filename,fmopenwrite or fmshareexclusive);//装入目标文件
tfilesize:=t.Size ;//取得目标流长度
mystream.Seek(0,sofromend);
mystream.CopyFrom(t,tfilesize);//在自身流后加上目标文件流数据
t.Free ;//释放
mystream.SaveToFile('d:/a.bak');
mystream.Free ;
result:=true;
end;
这段程序来自大富翁论坛,未经调试,我用的也是这个东西。