Форум: "Начинающим";
Текущий архив: 2007.07.22;
Скачать: [xml.tar.bz2];
Вниз
Копирование всех файлов из одной папки Найти похожие ветки
← →
иван8511 (2007-06-28 19:17) [0]Пожалуйста, научите как можно скопировать все файлы из одной папки в другую.
Спасибо.
← →
Anatoly Podgoretsky © (2007-06-28 19:19) [1]> иван8511 (28.06.2007 19:17:00) [0]
Для всех файловых операций используйте ShFileOperation
← →
ivan8511 (2007-06-29 12:51) [2]А по подробнее можно? Я совсем недавно в Delphi.
← →
Плохиш © (2007-06-29 12:55) [3]http://delphimaster.net/view/2-1180973368/
← →
Pohil © (2007-06-29 12:56) [4]FindFirst
FindNext
ShFileOperation
← →
THandle © (2007-06-29 13:01) [5]Создай свою функцию.
примерно вот так:
uses ShellAPI;
...
Function FileOperation(File1,File2:string; opt:integer):integer;
var
S:TSHFILEOPSTRUCT;
begin
with S do
begin
Wnd:=0;
pFrom:=PChar(File1);
pTo:=PChar(File2);
wFunc:=opt;
fFlags:=FOF_ALLOWUNDO;
end;
Result:= SHFileOperation(S);
if Result <> 0 then
if S.fAnyOperationsAborted then Result := 1 else Result:=2;
end;
← →
Плохиш © (2007-06-29 13:02) [6]
> FindFirst
> FindNext
Это здесь лишнее.
← →
THandle © (2007-06-29 13:05) [7]
> Pohil © (29.06.07 12:56) [4]
>
> FindFirst
> FindNext
Если уж на то пошло, то ещё FindClose надо:)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.07.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.039 c
