Быстрое копирование файла

procedure
 CopyFile(Source, Dest: string
);
var

  SrcFile: Integer;
  DestFile: Integer;
  S: string
;
  RetCode: Longint;
  OpenFileBuf: TOFStruct;
  FName: array
[0..255] of
 Char;
begin

  StrPCopy(FName, Source);
  SrcFile := LZOpenFile(FName, OpenFileBuf, of_Read);
  StrPCopy(FName, Dest);
  DestFile := LZOpenFile(FName, OpenFileBuf, of_Create);

  RetCode := LZCopy(SrcFile, DestFile);
  if
 RetCode >= 0 then

  begin

    LZClose(SrcFile);
    LZClose(DestFile);
  end

  else

  begin

    Str(RetCode, S);
    MessageDlg('Не могу скопировать ' + Source + ' в ' +
      Dest + #13 + 'Код ошибки = ' + S, mtError, [mbOk], 0);
  end
;
end
;

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!