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;