Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Загрузка файлов в THTMLViewer и TFrameBrowser
   Категория: Интернет и Сети
  Находится ли мышь над формой
   Категория: Компоненты
  Как удалить не пустой каталог
   Категория: Файловая система
  Удаление файла в корзину
   Категория: Файловая система
  Что такое хук (hook)?
   Категория: Приложение
  Округление в большую сторону
   Категория: Математика
  Вычислить логарифм
   Категория: Математика
  Пароль на ADO
   Категория: Базы данных

Delphi - База Знаний: Быстрое копирование файлов

  << Вернуться к Содержанию  

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;
  << Вернуться к Содержанию