Verschiedene Befehle

[ichbins]

Du kannst dir deine kopier-Funktion aber auch selber basteln:

Delphi-Quellcode:

function copyafile(fromfile,tofile:string):boolean;
var
  f,t:file of byte;
  tocopy,copied:integer;
  buf:array[1..4096] of byte;
begin
  result:=false;
  try begin
    assignfile(f,fromfile);
    assignfile(t,tofile);
    reset(f);
    rewrite(t);
    while not eof(f) do begin
      blockread(f,buf,length(buf),tocopy);
      blockread(f,buf,tocopy,copied);
      if ((copied<>tocopy) or (tocopy=0)) then 
        raise exception.create('Datei konnte nicht vollständig kopiert werden.');
    end; 
    closefile(f);
    closefile(t);
    result:=true;
  end except end;
end;