Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.056 c
6-1087233176
vic_vm
2004-06-14 21:12
2004.08.15
Чем лучше скачать файл? - вопрос принятия концепции


14-1091107443
rea
2004-07-29 17:24
2004.08.15
Trial


4-1087932125
Ihor Osov'yak
2004-06-22 23:22
2004.08.15
Проблемы при перехвате IDispatch::Invoke


14-1090681372
Harim
2004-07-24 19:02
2004.08.15
Как варить пельмени?


6-1087237430
Virus
2004-06-14 22:23
2004.08.15
Рассылка файла по сети