Зависание приложения после копирования каталогов

[Never74]

Здравствуйте!

Столкнулся с проблемой копирования каталогов.

Использую готовую функцию:

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.But_Copy_DirClick(Sender: TObject);
var path,paths:string;
begin
path:=(PChar(ExtractFilePath(ParamS tr(0))+'От куда копировать'));
paths:=(PChar(ExtractFilePath(Param Str(0))+'Куда копировать'));
FullDirectoryCopy(path,paths,True,F alse);
end;

Пробовал с указанием меток дисков, тоже не помогло, зависает.

Итог: Приложение копирует, но не всё, т.к. зависает. И что самое интересное. Если приложение весит, а я удаляю эти скопированные каталоги, она их по новой начинает копировать, но только уже часть.

Опыт: Раньше она работала нормально, пока не поставил другую версию delphi 7 и функцию удаления.

Функция удаления каталогов с файлами:

function DelDir(dir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(dir + #0);
end;
Result := (0 = ShFileOperation(fos));
end;

Я думал у меня комп уже погнал, перезагрузил, но толку 0.
Убирал функцию удаления, тоже толку 0.
Я в тупике и не знаю уже, что делать.

Поделитесь пожалуйста опытом, советом полезным или подскажите как правильно сделать.
И заранее прошу без критики, т.к. критика не поможет решить данную проблему.

[Человек_Борща]

Работа алгоритма не завсит от того, в какой IDE delphi он был обработан.

Вы забыли в долгом цикле(while) поставить промежуточную обработку сообщений Application.ProcessMessages по этому ваше приложение не отвечает системе когда работает алгоритм.

По поводу удаления.. как вариант использовать TSearchRec и рекурсию, и просто удалять все файлы из самой глубокой папки а затем папку, и так вверх по спискую.

[Never74]

Человек_Борща, покажи пожалуйста, как правильно нужно вставить Application.ProcessMessages, а то у меня ни чего не выходит.

[Dreanks]

если не ошибаюсь в начале работы цикла

[Never74]

Человек_Борща,Dreanks, спасибо

[GunSmoker]

http://www.delphikingdom.ru/asp/view...catalogid=1355

[GunSmoker]

pFrom := PChar(dir + #0);

F1:

The last file name is terminated with a double NULL character ("\0\0") to indicate the end of the buffer.

Я бы сделал #0#0 явно. Указанный код крайне не надёжен, т.к. зависит от недокументированных особенностей реализации компилятора.