Главная страница
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.035 c
1-1091096635
Прямой
2004-07-29 14:23
2004.08.15
OpenDialog


1-1091210357
Alexander /Brut/
2004-07-30 21:59
2004.08.15
использование буфера обмена по средствам SendMessage...


1-1091196704
Antonmm
2004-07-30 18:11
2004.08.15
Зарезервированные слова


14-1090911132
Nata
2004-07-27 10:52
2004.08.15
Служба


4-1089038837
juiceman
2004-07-05 18:47
2004.08.15
как с помощью WINAPI создать контекстное меню ?