Главная страница
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.023 c
14-1090507038
banderas
2004-07-22 18:37
2004.08.15
Delphi 8 ваши впечатления:..


1-1091258591
Antonmm
2004-07-31 11:23
2004.08.15
keybd_event


1-1091198310
Antonmm
2004-07-30 18:38
2004.08.15
События для кнопок сообщения


1-1091029870
denissoft
2004-07-28 19:51
2004.08.15
сохранить/загрузить Компонент


1-1091012080
Ш-К
2004-07-28 14:54
2004.08.15
Табуляция между формами