Программирование на Delphi и не только Как полностью скопировать папку? | Программирование на Delphi и не только

Delphi FAQ >> Файлы и каталоги uses ShellApi; … procedure CopyAFile(const Source, Dest: String); var   FileOp: TSHFileOpStruct;   SS, DD: String; begin   SS := Source + #0;   DD := Dest + #0;   with FileOp do   begin     Wnd := 0;     wFunc := FO_COPY;     pFrom := PChar(SS);     pTo …