| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Копирование папки [D7, XP]

F@T@L_Err0r ©   (2008-04-08 09:42:00) 

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

---

F@T@L_Err0r   (2008-04-08 12:59:00) [1]

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

---

{RASkov}   (2008-04-08 12:38:00) [2]

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

См [5]

---

Kolan   (2008-04-08 12:34:00) [3]

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

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

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

---

F@T@L_Err0r   (2008-04-08 12:31:00) [4]

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;

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

---

Kolan   (2008-04-08 11:59:00) [5]

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

Никакой, просто объявление соотв 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;

---

clickmaker   (2008-04-08 11:53:00) [6]

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

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


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

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

---

Kolan   (2008-04-08 10:17:00) [7]

> SHFILEOPSTRUCTA

Используй TSHFileOpStruct

---

Kolan   (2008-04-08 10:16:00) [8]

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

А так

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

---

F@T@L_Err0r   (2008-04-08 10:04:00) [9]

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 09:47:00) [10]

SHFileOperation

---

Наверх