Скачать: CL | DM;

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

← →
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 а то сложновато на английском и на русском также

---

← →
Fay ©   (2005-08-16 15:48) [8]

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]

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

---

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

Скачать: CL | DM;



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