Проблема с копированием каталога!!!

[Volkogriz]

Доброе время суток!
Проблема компиляции!
в чем прикол ?

uses
FileCtrl;

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:\a', 'D:\b');//[Error] Unit1.pas(67): Not enough actual parameters
end;

end.

Пишу в Delphi 5 !!!
Помогите исправить эту ошибку пожалуйста!!!
С уважением Volkogriz!!!

[Баламут]

Не смущает, что в объявлении функции фигурирует 4 параметра, а при вызове передается только 2?

[AlDelta]

Попробуй так, получится короче и быстрее:

......
uses
  ..., ShellApi;
......
procedure TForm1.Button1Click(Sender: TObject);
var OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, 'd:\temp\*.*' );//Откуда
StrPCopy( tobuf, 'd:\1' );//Куда
with OpStruc do begin
   Wnd := Handle;
   wFunc := FO_COPY;
   pFrom := @frombuf;
   pTo := @tobuf;
   fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
   fAnyOperationsAborted := False;
   hNameMappings := Nil;
   lpszProgressTitle := Nil;
end;
ShFileOperation( OpStruc );
end;

FullDirectoryCopy ('C:\a', 'D:\b', , );//[Error] Unit1.pas(67): Not enough actual parameters

При вызове функции надо передавать ей 4 параметра;

function FullDirectoryCopy(SourceDir{1}, TargetDir{2}: string; StopIfNotAllCopied{3},
OverWriteFiles{4}: Boolean): Boolean;

Выбор из двух зол, подобен выбору из двух близнецов. Результат будет один - они родственники!

[Volkogriz]

Доброе время суеок!!!
Спасибо всем !!!
Дальше разберусь!!!
С уважением Volkogriz!!!

[Volkogriz]

AlDelta
Я поменял флаги но не выходит то что я хочу!!!
Мне надо что бы при копированьи коталога не выводилось "этот файл уже сушиствует" А просто его пирипиала!
Я пишу инстолятор к игре!
Вобщем "откроется программа изменив разрешение монитора появится штото вроде меню игры и вдруг вылитит сообъщение "этот файл уже сушиствует переписать" Прикол выдит правда?"
Памаги пожалусто зделать кросива!!!

procedure TForm1.Button1Click(Sender: TObject);
var OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, 'editor\ÁÀÒ\*.*' );//Îòêóäà
StrPCopy( tobuf, 'C:\editor' );//Êóäà
with OpStruc do begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fFlags := FOF_NOCONFIRMMKDIR or FOF_MULTIDESTFILES;
fAnyOperationsAborted := False;
hNameMappings := Nil;
lpszProgressTitle := Nil;
end;
ShFileOperation( OpStruc );
end;

И ещё вопрос как привезать ProgressBar к копированью дирикторий и файлов, вобщем весь просесс копированья!
И можно ли зделать ProgressBar по рисунку, тапа круглый, квадратный или триугольный пофигу!!!
С уважением Volkogriz!!!

[Maslan]

Progressbar..... на закладке Samples компонент TGauge. Свойство Kind.
А с копированием... Пойду пообедаю , а потом чего-нить придумаем.
Т.е. тебе нужна функция рекурсивного копирования файлов с перезаписью существующих?

[Volkogriz]

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

Progressbar..... на закладке Samples компонент TGauge. Свойство Kind.
А с копированием... Пойду пообедаю , а потом чего-нить придумаем.
Т.е. тебе нужна функция рекурсивного копирования файлов с перезаписью существующих?

Да!!!

[Maslan]

Практически твой же код..... в чём проблема-то была?
Возможно это из-за D5? Я на 2006 написал вот это:

Procedure CopyDir2Dir(Src:PChar;Dst:PChar);
Var SR: TSearchRec; I: Integer;
begin
if src[Length(src)-1]<>'\' then src:=PChar(src+'\');
if dst[Length(dst)-1]<>'\' then dst:=PChar(dst+'\');;
if not((DirectoryExists(src))and(Force Directories(dst))) then exit;
I := FindFirst(src + '*', faAnyFile , SR);
while I = 0 do
begin
if (SR.Name <> '.') and (SR.Name <> '..')
then
begin
if SR.Attr = faDirectory
then
CopyDir2Dir(PChar(src+SR.Name),PCha r(dst+SR.Name))
else
CopyFile(PChar(src+SR.Name),PChar(d st+SR.Name),False);
I:=FindNext(SR);
end
else I:=FindNext(SR);
FindClose(SR);
end;
end;

Если не пойдёт (хотя я никаких модулей в Uses не добавлял - только стандартные) пиши - дома посмотрю на D5

[Volkogriz]

Благодарю !!!
Буду разбератся!!

[Volkogriz]

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

Практически твой же код..... в чём проблема-то была?
Возможно это из-за D5? Я на 2006 написал вот это:

Если не пойдёт (хотя я никаких модулей в Uses не добавлял - только стандартные) пиши - дома посмотрю на D5

Матирица на чом свет стоит!!!!!!!!!!
И Dtlphi 5 и 7;
Буду капать немогу понять что ему нихватает!!!