копирование каталогов с содержимым

← →
bogdan (2005-08-14 16:22) [0]

Привет всем прогерам!
Вот написал себе авторан на диск но никак не могу сделать функцию копирования целых каталогов с одного диска на другой, и вовсе просто каталога. Пробовал Xcopy но здесь выводит режим MS Dos а мне нужен windows и без всяких спросов, может вы чем поможете. Спасибо заранее.

← →
KilkennyCat © (2005-08-14 16:35) [1]

CopyFolder
с флагом COPY_SUBFOLDERS

← →
TUser © (2005-08-14 16:42) [2]

SHFileOperation

← →
TStas © (2005-08-15 19:51) [3]

Странно, CopyFolder справка дельфи не находит. Видимо надо какой-то модуль подключить

← →
KilkennyCat © (2005-08-15 19:59) [4]

win32 sdk reference

← →
Fay © (2005-08-15 20:02) [5]

2 KilkennyCat © (15.08.05 19:59) [4]
IMAPIFolder::CopyFolder ? Странный способ...

← →
KilkennyCat © (2005-08-15 21:20) [6]

гм... действительно, что-то я ляп сделал. Прошу прощения, неправ.

← →
bogdan (2005-08-16 13:01) [7]

а можно подробнее о SHFileOperation а то сложновато на английском и на русском также

2 bogdan (16.08.05 13:01) [7]
Не очень изящно, но работает. Про флаги читай сам.
procedure TForm1.Button1Click(Sender : TObject); function MKSTR(s : string; b : Boolean = True) : PChar; begin if b then s := StringReplace(s, "\", "\\", [rfReplaceAll]); GetMem(Result, Length(s) + 2); StrCopy(Result, PChar(s)); Result[Length(s)] := #0; end; var s : TSHFileOpStruct; begin s.Wnd := Self.Handle; s.wFunc := FO_COPY; s.pFrom := MKSTR(Edit1.Text); s.pTo := MKSTR(Edit2.Text); s.fFlags := FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR; s.fAnyOperationsAborted := True; s.hNameMappings := nil; s.lpszProgressTitle := MKSTR("Заголовок", False); SHFileOperation(s); FreeMem(s.pFrom); FreeMem(s.pTo); FreeMem(s.lpszProgressTitle); end;

← →
bogdan (2005-08-16 23:16) [9]

пасибо, будем разбираться

копирование каталогов с содержимым Найти похожие ветки