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

[Volkogriz]

Да чтож такое???
Зделал так прога пока не скопирует всё сама себя и комп вешает бллинн!!!

function DirectorySize(SourceDir: string): Integer;
var
F: File of Byte;
SR: TSearchRec;
I: Integer;
begin
Result := 0;
SourceDir := IncludeTrailingBackslash(SourceDir) ;
If DirectoryExists(SourceDir)
then
begin
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 := Result + DirectorySize(SourceDir + SR.Name)
else
begin
AssignFile(F, SourceDir + SR.Name);
Try
Reset(F);
Result := Result + FileSize(F);
Finally
CloseFile(F);
end;
end;
end;
I := FindNext(SR);
end;
Finally
FindClose(SR);
end;
end;
end;

procedure CopyFileWithProgressBar(Source, Destination: string);
var
FromF, ToF: File of Byte;
Buffer: Array[0..4096] of Char;
NumRead: Integer;
FileLength: Longint;
begin
AssignFile(FromF, Source);
Reset(FromF);
AssignFile(ToF, Destination);
rewrite(ToF);
FileLength := FileSize(FromF);
With Form1.ProgressBar2 do
begin
Try
Min := 0;
Max := FileLength;
While FileLength > 0 do
begin
BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
FileLength := FileLength - NumRead;
BlockWrite(ToF, Buffer[0], NumRead);
Position := Position + NumRead;
Form1.ProgressBar1.Position := Form1.ProgressBar1.Position + NumRead;
end;
Finally
CloseFile(FromF);
CloseFile(ToF);
end;
Position := 0;
end;
end;

function FullDirectoryCopy(SourceDir, TargetDir: string; StopIfNotAllCopied,
OverWriteFiles: Boolean): Boolean;
var
SR: TSearchRec;
I: Integer;
begin
Result := False;
SourceDir := IncludeTrailingBackslash(SourceDir) ;
TargetDir := IncludeTrailingBackslash(TargetDir) ;
If DirectoryExists(SourceDir)
then
If ForceDirectories(TargetDir)
then
begin
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
CopyFileWithProgressBar(SourceDir + SR.Name, TargetDir + SR.Name)
else
Result := True;
If not Result and StopIfNotAllCopied
then
exit;
end;
I := FindNext(SR);
end;
Finally
FindClose(SR);
end;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ProgressBar1.Max := DirectorySize('c:\editor');
If FullDirectoryCopy('editor\', 'c:\editor', False, False)
then
ShowMessage('Âñ¸ ñêîïèðîâàíî.');
end;

end.

Што делать????
Хелппппппппппп!!!!

[Квэнди]

application.ProcessMessages;
вставляй в то место где происходит наиболее ресурсоемкая операция

[Volkogriz]

Всёровно всё глючит!!!!!!!!
Чтот нетак делаю????

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Application.ProcessMessages;
ProgressBar1.Max := DirectorySize('c:\editor');
If FullDirectoryCopy('editor\', 'c:\editor', False, False)
then
ShowMessage('Âñ¸ ñêîïèðîâàíî.');
end;

С уважением Volkogriz!!!

[AlDelta]

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

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

Какие флаги ты использовал?

Флаги к структуре типа TSHFileOpStruct
FOF_ALLOWUNDO Если возможно, сохраняет информацию для возможности UnDo.
FOF_CONFIRMMOUSE Не реализовано.
FOF_FILESONLY Если в поле pFrom установлено *.*, то операция
будет производиться только с файлами.
FOF_MULTIDESTFILES Указывает, что для каждого исходного
файла в поле pFrom указана своя директория - адресат.
FOF_NOCONFIRMATION Отвечает "yes to all" на все запросы в ходе опеации.
FOF_NOCONFIRMMKDIR Не подтверждает создание нового каталога,
если операция требует, чтобы он был создан.
FOF_RENAMEONCOLLISION В случае, если уже существует файл
с данным именем, создается файл с именем "Copy #N of..."
FOF_SILENT Не показывать диалог с индикатором прогресса.
FOF_SIMPLEPROGRESS Показывать диалог с индикатором прогресса,
но не показывать имен файлов.
FOF_WANTMAPPINGHANDLE Вносит hNameMappings элемент.
Дескриптор должен быть освобожден функцией SHFreeNameMappings.
fAnyOperationsAborted
Принимает значение TRUE если пользователь прервал любую файловую
операцию до ее завершения и FALSE в ином случае.

Может не стоит изобретать велосипед (если только не в учебных целях ), есть много готовых инсталяторов на любой вкус // лично мое мнение

Врожденная смекалка русско-украинских изобретателей не знает границ, именно поэтому их высоко ценят и хорошо оплачивают только заграницей.

[Volkogriz]

Доброе время суток!!!
С InnoSetup я довольно долго работаю!!!!
Но вот здесь мне бы хотелось чтото своё!!!
Вот это мой финал Видио, сплеш,слайд шоу,музыка и т.д!!!
Этот инстолятор я писал для игры Emperor: Battle for Dune!!!
Может кому и понадобится!!!
Забирайте скрипт каму нужно вмести с библиотеками!!!
А маня выручите пожалусто по моей теме!!!
С уважением Volkgriz!!!

[Трофимов Александр]

Может проще алгоритм работы поменять в программе. Например ищещь копируемый файл в директории, удаляешь такой же в той куда копируешь если он там есть и затем уже копируешь.