Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Копирование с заменой файлов [D7, XP]

Wolferio © (2006-08-16 12:05:00)
Добрый день.
ТАкая проблема: при копировании файлов из одной папки в другую, при первом копировании файлы копирует нормально, но при повторном копировании тех же файлов програма не копирует их с заменой а добавляет как Копия "Имя файла".
Как сделать что бы она заменяла существующие файли.
Вот кусок кода программы:
.........
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, с:\1\+'*.*' );
StrPCopy( tobuf, с:\2\);
With OpStruc DO
Begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );

Заранее благодарен!

clickmaker (2006-08-16 12:35:00) [1]

> функцию CopyFileEx

но ее нет под 9х. Если твою прогу могут запустить и под ними, тогда самый универсальный способ с копированием блоками (чтение-запись в цикле)

Джо (2006-08-16 12:33:00) [2]
> [2] Wolferio © (16.08.06 12:30)
> Еще вопрос!
> Как мне убрать окно Копирования Windows и вставить свое,
> например в компонент Guage1.

Лучше тогда использовать функцию CopyFileEx, она позволяет задать callback-процедуру.

Wolferio (2006-08-16 12:30:00) [3]

> clickmaker

Спасибо!

Еще вопрос!
Как мне убрать окно КопированияWindows и вставить свое, например в компонент Guage1.

Спасибо!

clickmaker (2006-08-16 12:08:00) [4]
убрать FOF_RENAMEONCOLLISION

Наверх

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