скрытное копирование папки с файлами

[Stilet]

Вообще-то в SHFileOperation есть параметр:
FOF_SILENT Does not display a progress dialog box.

[KWN, lnc]

Stilet ты хочешь сказать этим кодом он перехватывает копируемые файлы и дублирует в определеную папку?

[Костян Пират]

Сообщение от KWN, lnc

procedure TForm1.Button1Click(Sender: TObject);
begin
FullDirectoryCopy;
end;

логически подумайте: процедура должна на экстрасенсорном уровне определить какую именно папку и куда именно надо копировать?

вопрос по параметрам StopIfNotAllCopied, OverWriteFiles. Я так понимаю 1й в случае true останавливает процесс копирования,если чт-то не удалось скопировать, а 2й, если true, переписывает существующие файлы. я прав?

[lexaltd]

Можно вопрос по теме?

procedure CopyDir(FromDir,ToDir:string);
begin
winexec(PChar('cmd /c xcopy /C /H /Q /Y '+FromDir+' '+ToDir),SW_Hide);
end;

если использовать эту процедуру , то копируется, только файлы , если добавить /E - то будет копировать и каталоги

Procedure CopyDir(FromDir,ToDir:string);
begin
winexec(PChar('cmd /c xcopy /C /H /Q /Y /E '+ FromDir+' '+ToDir),SW_Show);
end;

Но если попытатся скопировать папки Program Files или Documents and Settings - тобиш системные , то не чего не копируется , с другими всё нормально , хотя стоит /H - Копирует скрытые и системные файлы

Можете подсказать ошибку?

Зарание спасибо

[Jeni]

Может быть стоит дополнительно указать параметры /G (Разрешает копирование шифрованных файлов в конечную папку) и /R (Заменяет файлы, доступные только для чтения)?

[lexaltd]

Сообщение от Jeni

Может быть стоит дополнительно указать параметры /G (Разрешает копирование шифрованных файлов в конечную папку) и /R (Заменяет файлы, доступные только для чтения)?

Написал так

Procedure CopyDir(FromDir,ToDir:string);
begin
winexec(PChar('cmd /c xcopy /C /H /Q /Y /E/G/R '+ FromDir+' '+ToDir),SW_Show);
end;

Всё равно не работает

[eskander]

lexaltd, а чем вас не устраивает способ с рекурсивным обходом папок? У того способа что рассматриваете вы есть существенный недостаток - неизвестно когда процедура закончит выполнение, и папка будет полностью скопирована...
Ну а вообще (для примера):
xcopy c:\windows d:\win2\ /E /C /Q /G /H /R /Y
Всё работает, только следует обратить внимание на порядок FromDir, ToDir они до параметров, папка назначения должна закрываться слэшем и параметры через пробелы

[lexaltd]

Сообщение от eskander

lexaltd, а чем вас не устраивает способ с рекурсивным обходом папок? У того способа что рассматриваете вы есть существенный недостаток - неизвестно когда процедура закончит выполнение, и папка будет полностью скопирована...
Ну а вообще (для примера):
xcopy c:\windows d:\win2\ /E /C /Q /G /H /R /Y
Всё работает, только следует обратить внимание на порядок FromDir, ToDir они до параметров, папка назначения должна закрываться слэшем и параметры через пробелы

Да ты прав так работает , а так нет

xcopy C:\Documents and Settings\Alex\Application Data\Opera\Opera d:\win2\ /E /C /Q /G /H /R /Y

Вобще в Documents and Settings и Program Files не заходит

Вроде нашёл - если в название папки есть пробел то он не хочет копировать
Как это можно побороть?

[Jeni]

Каталоги/файлы с пробелами нужно заключать в кавычки (типа "имя папки").

[lexaltd]

xcopy C:\"Documents and Settings"\Alex\"Application Data"\Opera\Opera E:\new\/E /C /Q /G /H /R /Y

Спасибо большое Jeni и eskander - так работает