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 发布