Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

спасибо всем

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.03 c