Скопировать все файлы вместе с подкаталогами

Delphi , Файловая система , Файлы

procedure TForm1.Button1Click(Sender: TObject);
var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: array [0..128] of Char;
begin
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, 'c:\1\*.*' );
  StrPCopy( tobuf, 'c:\2' );
  with OpStruc do
  begin
    Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted:= False;
    hNameMappings:= nil;
    lpszProgressTitle:= nil;
  end;
  ShFileOperation( OpStruc );
end;

Here is a translation of the provided text into Russian:

Приведенный код на Delphi - это процедура, выполняющая операцию копирования файлов с помощью Windows Shell API. Она копирует все файлы из указанного источника и его подкаталогах в целевой каталог.

Вот разбивка того, что код делает:

1. Процедура Button1Click вызывается при клике кнопки на форме.
2. Два массива frombuf и tobuf объявляются для хранения пути источника и целевого файла соответственно. Они инициализируются нулями с помощью FillChar.
3. Путь источника устанавливается в 'c:\1\*.*', что означает, что будет копироваться все файлы из каталога c:\1 и его подкаталогах.
4. Путь целевого файла устанавливается в 'c:\2', что означает, что скопированные файлы будут помещены в этот каталог.
5. Структура OpStruc типа TSHFileOpStruct объявляется и инициализируется следующими свойствами:
   • Wnd: устанавливает handle окна для операции с файлами.
   • wFunc: указывает на операцию, которую нужно выполнить (в этом случае, FO_COPY для копирования файлов).
   • pFrom и pTo: устанавливают пути источника и целевого файла соответственно.
   • fFlags: устанавливает различные флаги для операции с файлами:
     • FOF_NOCONFIRMATION: предотвращает появление запросов на подтверждение во время процесса копирования.
     • FOF_RENAMEONCOLLISION: переименовывает файлы, если они уже существуют в целевом каталоге.
   • fAnyOperationsAborted и hNameMappings: устанавливаются в значения по умолчанию (False и nil соответственно).
   • lpszProgressTitle: оставляется неустановленным, что означает, что не будет отображаться заголовок прогресса во время операции с файлами.
6. Наконец, функция ShFileOperation вызывается с инициализированной структурой OpStruc в качестве ее аргумента.

Обратите внимание, что это код assumes Windows-окружение и может не работать на платформах, отличных от Windows. В качестве альтернативного решения можно использовать компонент TFileCopy Delphi или функцию CopyFile из Windows API для выполнения операции копирования файлов. Эти альтернативы могут быть более эффективными и легче в использовании, чем подход с Shell API.

В статье описывается процедура на языке Delphi, которая копирует все файлы с подкаталогами из указанной директории в другую.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::