Скопировать, удалить, переместить всю директорию

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

uses

ShellApi; function

CopyDir(const

fromDir, toDir: string

): Boolean; var

fos: TSHFileOpStruct; begin

ZeroMemory(@fos, SizeOf(fos)); with

fos do

begin

wFunc := FO_COPY; fFlags := FOF_FILESONLY; pFrom := PChar(fromDir + #0); pTo := PChar(toDir) end

; Result := (0 = ShFileOperation(fos)); end

; function

MoveDir(const

fromDir, toDir: string

): Boolean; var

fos: TSHFileOpStruct; begin

ZeroMemory(@fos, SizeOf(fos)); with

fos do

begin

wFunc := FO_MOVE; fFlags := FOF_FILESONLY; pFrom := PChar(fromDir + #0); pTo := PChar(toDir) end

; Result := (0 = ShFileOperation(fos)); end

; function

DelDir(dir: string

): Boolean; var

fos: TSHFileOpStruct; begin

ZeroMemory(@fos, SizeOf(fos)); with

fos do

begin

wFunc := FO_DELETE; fFlags := FOF_SILENT or

FOF_NOCONFIRMATION; pFrom := PChar(dir + #0); end

; Result := (0 = ShFileOperation(fos)); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

if

cCopyDir('d:download', 'e:') = True

then

ShowMessage('Directory copied.'); end

;

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

Категории

Статьи

Советы

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