Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копирование содержимого папки [D6, XP]


AlexGalkin ©   (2007-05-30 10:20:00) 

Мне нужно создать exe-файл, который мог бы копировать с одной папки (с:\1) со всем ее содержимым в другую папку (с:\2). Причем нужно предусмотреть замену файлов и папок без запроса пользователя.


AlexGalkin   (2007-05-30 15:22:00) [1]


> Подробно о SHFileOperation здесь:
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91


Большое спасибо за ссылку!!!
Очень помогла


Anatoly Podgoretsky   (2007-05-30 11:39:00) [2]

> AlexGalkin  (30.05.2007 10:20:00)  [0]

Это уже написано и поставляется с самой Виндоус


Amoeba   (2007-05-30 11:05:00) [3]

Подробно о SHFileOperation здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91


Робинзон   (2007-05-30 10:56:00) [4]

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;


if CopyDir('D:\Проба', 'd:\Проба2') = True then
  label1.Caption:='Процес копирования закончен успешно. Завершить?';
 


clickmaker   (2007-05-30 10:47:00) [5]


> Мне нужно создать exe-файл, который мог бы копировать с
> одной папки

а зачем exe? bat.
copy /Y c:\1\*.* c:\2


Jeer   (2007-05-30 10:45:00) [6]

AlexGalkin ©   (30.05.07 10:20)
Особенно занятно будет A:\Windows > C:\Windows


DVM   (2007-05-30 10:37:00) [7]

Вопрос в чем? За тебя создать этот файл надо?


Наверх

Титульная страница Поиск, карта сайта Написать письмо