Как скопировать директорию с файлами

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

unit

FilesOp; interface

uses

Forms, SysUtils, ShellAPI, Dialogs; procedure

CopyFiles(const

FromFolder: string

; const

ToFolder: string

); implementation

procedure

CopyFiles(const

FromFolder: string

; const

ToFolder: string

); var

Fo : TSHFileOpStruct; buffer : array

[0..4096] of

char; p : pchar; begin

FillChar(Buffer, sizeof(Buffer), #0); p := @buffer; StrECopy(p, PChar(FromFolder)); //директория, которую мы хотим скопировать FillChar(Fo, sizeof(Fo), #0); Fo.Wnd := Application.Handle; Fo.wFunc := FO_COPY; Fo.pFrom := @Buffer; Fo.pTo := PChar(ToFolder); //куда будет скопирована директория Fo.fFlags := 0; if

((SHFileOperation(Fo) <> 0) or

(Fo.fAnyOperationsAborted <> false

)) then

ShowMessage('File copy process cancelled') end

; end

.

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com