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

← →
F@T@L_Err0r (2008-04-08 09:42) [0]

Здравствуйте ув. Мастера...У меня такой вопрос: С помощью какой функции можно скопировать папку со всем ее содержимым???

← →
Kolan © (2008-04-08 09:47) [1]

SHFileOperation

← →
F@T@L_Err0r (2008-04-08 10:04) [2]

var str:SHFILEOPSTRUCTA;
begin
str.Wnd := application.Handle;
str.wFunc := FO_COPY;
str.pFrom := "c:\Test\";
str.pTo := "D:\Test_New";
str.fFlags := FOF_ALLOWUNDO;
str.fAnyOperationsAborted := false;
SHFileOperation(str);

Выдает ошибку что невозможно прочитать с диска...

← →
Kolan © (2008-04-08 10:16) [3]

> str.pFrom := "c:\Test\";
> str.pTo := "D:\Test_New";

А так

str.pFrom := "c:\Test\"+ #0; str.pTo := "D:\Test_New"+ #0;
?

← →
Kolan © (2008-04-08 10:17) [4]

> SHFILEOPSTRUCTA

Используй TSHFileOpStruct

← →
clickmaker © (2008-04-08 11:53) [5]

> [4] Kolan © (08.04.08 10:17)
> > SHFILEOPSTRUCTA
>
> Используй TSHFileOpStruct

а какая разница?

> [2] F@T@L_Err0r (08.04.08 10:04)

а там слэш не лишний на конце в pfrom?

← →
Kolan © (2008-04-08 11:59) [6]

> а какая разница?

Никакой, просто объявление соотв Delphi оформлению.

Я пользуюсь такой реализацией вызова:
procedure CopyDirectoryTree(AHandle: THandle; AFromDir, AToDir: string); var SHFileOpStruct: TSHFileOpStruct; begin with SHFileOpStruct do begin Wnd := AHandle; wFunc := FO_COPY; {Про #0 не надо забывать.} pFrom := PChar(AFromDir+ #0); pTo := PChar(AToDir+ #0); fFlags := FOF_NOCONFIRMATION; fAnyOperationsAborted := False; hNameMappings := nil; lpszProgressTitle := nil; end; SHFileOperation(SHFileOpStruct); end;

← →
F@T@L_Err0r (2008-04-08 12:31) [7]

var str:TSHFileOpStruct;
begin
str.Wnd :=Application.handle;
str.wFunc := FO_COPY;
str.pFrom := PChar("c:\Test\"+ #0);
str.pTo := PChar("D:\Test_New"+ #0);
str.fFlags :=FOF_NOCONFIRMATION;
str.fAnyOperationsAborted := False;
str.hNameMappings := nil;
str.lpszProgressTitle := nil;
SHFileOperation(str);
end;

Все та же ошибка...уже пробывал с разными параметрами...

> PChar("c:\Test\"+ #0);

Когда ты используешь константные строки прифодит к PChar не нужнно.

Ты [5] проверил?

> [7] F@T@L_Err0r (08.04.08 12:31)

См [5]

← →
F@T@L_Err0r (2008-04-08 12:59) [10]

Все спасибо работает....

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