如何实现文件拷贝

这里有三种方法
{利用文件流}
Procedure FileCopy( Const sourcefilename, targetfilename: String );
Var
  S, T: TFileStream;
Begin
  S := TFileStream.Create( sourcefilename, fmOpenRead );
  try
    T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
    try
      T.CopyFrom(S, S.Size ) ;
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
End;{这个方法用的是block read/write.}procedure FileCopy(const FromFile, ToFile: string);
 var
  FromF, ToF: file;
  NumRead, NumWritten: Word;
  Buf: array[1..2048] of Char;
  fsize,fproc:integer;
begin
  AssignFile(FromF, FromFile);
  Reset(FromF, 1); { Record size = 1 }
  fsize:=filesize(fromf);
  AssignFile(ToF, ToFile); { Open output file }
  Rewrite(ToF, 1); { Record size = 1 }
  fproc:=0;
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    fproc:=fproc+numread;
    BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  System.CloseFile(FromF);  System.CloseFile(ToF);
end;{利用 LZCopy,要 USES LZExpand.}
procedure CopyFile(FromFileName, ToFileName: string);
var
  FromFile, ToFile: File;
begin
  AssignFile(FromFile, FromFileName); { Assign FromFile to FromFileName }
  AssignFile(ToFile, ToFileName);     { Assign ToFile to ToFileName }
  Reset(FromFile);                    { Open file for input }
  try
    Rewrite(ToFile);                  { Create file for output }
    try      { copy the file an if a negative value is returned raise an exception }
      if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle) < 0 then
        raise Exception.Create('Error using LZCopy')
    finally
      CloseFile(ToFile);  { Close ToFile }
    end;
  finally
    CloseFile(FromFile);  { Close FromFile }
  end;
end;要显示进度你只能用第二种方法用blockread或blockwrite
进度就是该过程中的 "fproc*100 div fsize"(用百分数表示)
可以给满分了吧!