Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копирование всех файлов из одной папки [D6, XP]

иван8511 © (2007-06-28 19:17:00)
Пожалуйста, научите как можно скопировать все файлы из одной папки в другую.
Спасибо.

THandle (2007-06-29 13:05:00) [1]

> Pohil © (29.06.07 12:56) [4]
>
> FindFirst
> FindNext

Если уж на то пошло, то ещё FindClose надо:)

Плохиш (2007-06-29 13:02:00) [2]

> FindFirst
> FindNext

Это здесь лишнее.

THandle (2007-06-29 13:01:00) [3]
Создай свою функцию.
примерно вот так:
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;

Pohil (2007-06-29 12:56:00) [4]
FindFirst
FindNext
ShFileOperation

Плохиш (2007-06-29 12:55:00) [5]
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1180973368&n=18

ivan8511 (2007-06-29 12:51:00) [6]
А по подробнее можно? Я совсем недавно в Delphi.

Anatoly Podgoretsky (2007-06-28 19:19:00) [7]
> иван8511 (28.06.2007 19:17:00) [0]

Для всех файловых операций используйте ShFileOperation

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »