VPF::Замена директорий без подтверждений

Vetlb

Дата 19.10.2009, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.10.2009

Репутация: нет
Всего: нет

Требуется заменить директории, внутри которых есть файлы, на новые.
Нашел вот такую функцию:

Код


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;

Но! Когда функция начинает работать, то выдается виндовый запрос "Копировать с заменой?"
Что тут нужно поменять/добавить/убрать, чтобы запрос на замену не выдавался и замена происходила автоматически???

M
bems

Пользуйся кнопкой КОД

Это сообщение отредактировал(а) bems - 19.10.2009, 16:37

Данкинг

Дата 19.10.2009, 16:03 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Так перепиши функцию через обычный CopyFile - он не спрашивает подтверждения.

--------------------

There's nothing left but silent epitaphs.

~FoX~

Дата 19.10.2009, 16:08 (ссылка)

(голосов:1)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

Код


fFlags := FOF_FILESONLY + FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR;

--------------------

…множественность никогда не следует полагать без необходимости…

Vetlb

Дата 19.10.2009, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.10.2009

Репутация: нет
Всего: нет

~FoX~ , ОГРОМНОЕ СПАСИБА!!!!!
Все заработало как часы!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »