Программирование на 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 := PChar(DD);     fFlags := 0;

    hNameMappings := nil;


    lpszProgressTitle := nil
  end;   SHFileOperation(FileOp)

end;

Этой функцией можно копировать как каталоги, так и одиночные файлы.

Хотите скачать бесплатно векторные клипарты?