Форум: "Начинающим";
Текущий архив: 2005.09.25;
Скачать: [xml.tar.bz2];
Вниз
копирование каталогов с содержимым Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.09.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c
