ffcopy.pas

来自「wbs43open-src.zip 数字隐藏工具」· PAS 代码 · 共 32 行

unit FFCopy;

interface

  uses SmartFileCopy;

  procedure FileCopy(Source, Dest: String);

implementation

  procedure FileCopy(Source, Dest: String);
  {var
    SF, DF:                      File;
    NumRead, NumWritten:         Integer;
    Buf:                         Array[1..2048] Of Char;}
  begin
    {AssignFile(SF,Source);
    Reset(SF,1);
    AssignFile(DF,Dest);
    Rewrite(DF,1);
    Repeat
      BlockRead(SF, Buf, SizeOf(Buf), NumRead);
      BlockWrite(DF, Buf, NumRead, NumWritten);
    Until (NumRead = 0) or (NumWritten <> NumRead);
    CloseFile(SF);
    CloseFile(DF);     }
    SmartCopyFile(Source,Dest);
  end;


end.