TFileStream复制文件

//功能说明：TFileStream复制文件 

ProcedureFileCopy(Constsourcefilename, targetfilename: String);
Var
  S, T: TFileStream;
Begin
  S :=TFileStream.Create( sourcefilename, fmOpenRead );
   //生成文件流
   try
    T :=TFileStream.Create( targetfilename, fmOpenWriteorfmCreate );
     try
T.CopyFrom(S, S.Size ) ;
       //复制文件
     finally
      T.Free;
     end;
   finally
    S.Free;
   end;
End;

procedureTForm1.Button1Click(Sender: TObject);
begin
  FileCopy( 'C:\新建文本文档.txt', 'd:\新建文本文档.txt');
end;

通过 Wiz 发布