Копирование папки

← →
Dr.Karter (2004-02-09 14:38) [0]

Вопрос в следующем можно ли как-нибудь более быстрым способом скопировать папку со всем в ней содержимым.
Более того, учесть избежания сообщения: "заменить ли существующий файл?"

← →
Amoeba (2004-02-09 14:54) [1]

Более быстрым в сравнении с чем?
Читаем http://www.delphikingdom.com/mastering/fileshellapi.htm

← →
kostik (2004-02-09 14:55) [2]

uses ShellAPI;
.....
function CopyDir(lpSourceDir,lpResultDir:string):boolean;
var
shFile:tShFileOpStruct;
begin
ZeroMemory(@shFile,SizeOf(shFile));
with shFile do
begin
wFunc:=FO_COPY;
fFlags:=FOF_FILESONLY;
pFrom:=pChar(lpSourceDir+#0);
pTo:=pChar(lpResultDir);
end;
Result:=SHFileOperation(shFile)=0;
end;

← →
Amoeba (2004-02-09 14:59) [3]

Тогда уж
fFlags:=FOF_FILESONLY or FOF_NOCONFIRMATION
Чтобы учесть избежания сообщения: "заменить ли существующий файл?"

← →
Dr.Karter (2004-02-10 08:20) [4]

Спасибо помогло.
fFlags должен быть равен FOF_NOCONFIRMATION для копирования не спрашивая замены!

Копирование папки Найти похожие ветки