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

← →
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 - перемещается, но пока я добился этого только для случая, когда одна из данных клавиш нажата ДО начала перетаскивания, но не во время.

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

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

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