Главная страница
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.03 c
14-1090860633
Art_Z
2004-07-26 20:50
2004.08.15
Два аргумента за Unix


3-1090419254
Bacuc
2004-07-21 18:14
2004.08.15
АвтоОбновление


3-1089802767
libadmin
2004-07-14 14:59
2004.08.15
компоненты для MySQL


3-1089456660
Knight
2004-07-10 14:51
2004.08.15
Защита паролем...


1-1091510617
race1
2004-08-03 09:23
2004.08.15
pointers