[Erilar]

Как можно скопировать файл C:\1.file в C:\123\1.file с заменой? Заранее спасибо.

[vs259]

Код:

1 2 3 4 5 6 7 8 9 10 11

function T<Имя>.WindowsCopyFile(FromFile, ToDir : string) : boolean; {Функция для копирования файлов} var   F: TShFileOpStruct; begin   F.Wnd := 0; F.wFunc := FO_COPY;   FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);   ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);   F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;   result:=ShFileOperation(F) = 0; end;

Админ: Пользуемся тегами!

использование: Далее используется CurDir, т.к. копируется в текущий каталог, но можно задать целевой каталог отличный от текущего

if not WindowsCopyFile(<Путь>+ <Имя файла>, CurDir +'\')
then ShowMessage('Ошибка копирования данных!');