Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];

Вниз

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

← →
astronom ©   (2007-02-08 12:19) [0]

Здравствуйте товарищи! Может быть кто-нибудь подскажет, как можно силами delphi скопировать директорию, например с одного диска на другой (ну или из директории в директорию)?

---

← →
vasIZmax ©   (2007-02-08 12:23) [1]

procedure TForm1.Button2Click(Sender: TObject);
var  OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;
begin  FillChar( frombuf, Sizeof(frombuf), 0 );
 FillChar( tobuf, Sizeof(tobuf), 0 );
 StrPCopy( frombuf, "d:\brief\*.*" );
 StrPCopy( tobuf, "d:\temp\brief" );
 with OpStruc do begin
   Wnd := Handle;
   wFunc := FO_COPY;
   pFrom := @frombuf;
   pTo := @tobuf;
   fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
   fAnyOperationsAborted := False;
   hNameMappings := Nil;
   lpszProgressTitle := Nil;
 end;
 ShFileOperation( OpStruc );
end;
не мое... в каком-то faq"е нашел, на компе валяется...
ЗЫ. попробуй

---

← →
Darvin ©   (2007-02-08 15:24) [2]

рекурсия + копирование файлов

---

← →
Amoeba ©   (2007-02-08 15:34) [3]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91

---

← →
vasIZmax ©   (2007-02-08 15:57) [4]

> Amoeba ©   (08.02.07 15:34) [3]

во-во, наверно с королевства брал.
к [1] надо добавить (с) КД

---

← →
Astronom ©   (2007-02-21 05:05) [5]

Возникла ещё одна проблемка: не могу зафиксировать нажатие клавиш CTRL и SHIFT при перетаскивании директорий. В общем, нужно сделать как у Windows: нажал CTRL - папка копируется, нажал SHIFT - перемещается, но пока я добился этого только для случая, когда одна из данных клавиш нажата ДО начала перетаскивания, но не во время.

---

← →
Elen ©   (2007-02-21 09:25) [6]

> не могу зафиксировать нажатие клавиш CTRL и SHIFT

Перед ShFileOperation( OpStruc ); (если конечно примером[1] пользуеш) проверь GetKeyState(VK_SHIFT) и GetKeyState(VK_ctrl). если соответствующий результ отрицательный то соответствующая клавиша зажата

---

← →
Elen ©   (2007-02-21 09:26) [7]

> Astronom ©   (21.02.07 05:05) [5]

Ой стоп не перед ShFileOperation( OpStruc ); а пердед wFunc := FO_COPY;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.03.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.059 c