badcopy.dpr

来自「若果文件不完整」· DPR 代码 · 共 38 行

program BadCopy;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  src,des:string;
  fs,fd:Integer;
  size:integer;
  buffer:pchar;
  i:integer;
begin
  if ParamCount=2 then
  begin
    src:=ParamStr(1);
    des:=ParamStr(2);
//    if FileExists(src) then
    begin
      Buffer := PChar(AllocMem(257));
      fs:=FileOpen(Src,fmOpenRead);
      if fs=0 then exit;
      fd:=FileCreate(Des);
      size:=FileSeek(fs,0,2);
      i:=0;
      while i<Size do
      begin
        FileSeek(fs,i,0);
        FileRead(fs,Buffer,256);
        Write(#13+inttostr(size)+' done '+inttostr(i));
        FileWrite(fd,Buffer,256);
        inc(i,256);
      end;
      FileClose(fs);
      FileClose(fd);
    end;
  end;

end.