Как копировать папку с подпапками и файлами

[tarakan1983]

Есть функция копирования

function FullDirectoryCopy(SourceDir, TargetDir: string; StopIfNotAllCopied,
OverWriteFiles: Boolean): Boolean;
var
SR: TSearchRec;
I: Integer;
begin
Result := False;
SourceDir := IncludeTrailingBackslash(SourceDir) ;
TargetDir := IncludeTrailingBackslash(TargetDir) ;
if not DirectoryExists(SourceDir) then
Exit;
if not ForceDirectories(TargetDir) then
Exit;

I := FindFirst(SourceDir + '*', faAnyFile, SR);
try
while I = 0 do
begin
if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then
begin
if SR.Attr = faDirectory then
Result := FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME,
StopIfNotAllCopied, OverWriteFiles)
else if not (not OverWriteFiles and FileExists(TargetDir + SR.Name))
then
Result := CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir +
SR.Name), False)
else
Result := True;
if not Result and StopIfNotAllCopied then
exit;
end;
I := FindNext(SR);
end;
finally
SysUtils.FindClose(SR);
end;
end;

Пишу дальше

procedure TForm1.Button1Click(Sender: TObject);

begin

FullDirectoryCopy('c:\1','c:\2');

end;

Компилятор выдает ошибку Not enough actual parameters
Помогите пожалуйста, где я ошибся.

[Terran]

Вы указали не все параметры. Надо сделать так:

FullDirectoryCopy('c:\1','c:\2',False,True);

[tarakan1983]

Сообщение от Terran

Вы указли не ве параметры. Надо сделать так:

FullDirectoryCopy('c:\1','c:\2',False,True);

а что это за параметры?

[Terran]

Сообщение от tarakan1983

а что это за параметры?

В строке

function FullDirectoryCopy(SourceDir, TargetDir: string; StopIfNotAllCopied,
OverWriteFiles: Boolean): Boolean;

1) SourceDir- Указываете путь с откуда копировать;
2) TargetDir - Куда копировать;
3) StopIfNotAllCopied - Если False, то продолжает копировать при ошибке, а если True, то перестаёт;
4) OverWriteFiles - Если True, то заменяет уже имеющиеся в директории файлы, а если нет, то пропускает;

[tarakan1983]

Сообщение от Terran

В строке

1) SourceDir- Указываете путь с откуда копировать;
2) TargetDir - Куда копировать;
3) StopIfNotAllCopied - Если False, то продолжает копировать при ошибке, а если True, то перестаёт;
4) OverWriteFiles - Если True, то заменяет уже имеющиеся в директории файлы, а если нет, то пропускает;

Спасибо за разъяснение, а как бы мне этот процес визуализировать типа как в файловых менеджерах?

[Terran]

а как бы мне этот процес визуализировать

Посмотрите эту ссылку, может подойдёт:
http://programmersforum.ru/showthrea...E2%E0%ED%E8%E5

[tarakan1983]

со стандартным windows'ким окном отображающим процес копирования

Меня энто не очень устраивает, хотелось что нибудь своё