一个简单的问题急呀在线等

Question

function tform1.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;
我在BUTTON的CLICK事件调用此涵数
if(addtofile('d:\111\project1.exe','d:\444\project1.exe')) then
 showmessage('yes')
else
  showmessage('no'); 
结果提示对话框‘YES’，我想问我怎样查找到添加'd:\444\project1.exe'此文件的'd:\111\project1.exe'的内容呀急呀

Answer 1

好像target.CopyFrom(source,0);有点问题

Answer 2

不明白你们的意思我的意思是现在程序没有问题我想问的'd:\111\project1.exe'被添加到'd:\444\project1.exe'文件怎样才能在'd:\444\project1.exe'文件中看到我所添加的的文件的内容呀