Процедура копирования директорий

← →
Vasya.ru (2004-07-29 17:35) [0]

Нужна процедура, на входе получающая директорию и адрес, куда копировать, копирующая директорию со всеми файлами и поддиректориями. Кто знает где взять?

← →
Гаврила © (2004-07-29 17:39) [1]

ShFileOperation

← →
ShimON (2004-07-29 18:21) [2]

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;
Использовать можно так:
CopyDir(FileDir + "Base", dir + "Base");
Для работы должен быть подключен модуль ShellAPI!!!!

Кстати, советую скачать проект DelpiWorld.narod.ru - там есть очень много интересного!!!!

← →
Vasya.ru (2004-07-29 18:32) [3]

спасибо всем

Процедура копирования директорий Найти похожие ветки