скрытное копирование папки с файлами

[tarakan1983]

Поршу прощенья, что так долго отвечал, но я вдарился в изучение потоков, и как я правильно понял, если эту функцию я запущу в отдельном потоке, то выполнение программного кода будет продолжаться, а мне этого не надо. Мне нужно просто чтобы окно моей программы не замерзало. Может конечно я неправильно что то понял. Или предложите, пожалуйста, другой способ копирования папки с большими файлами, но так чтобы фома не "замерзала", а индикатор копирования мне не обязательно, можно простов label выводить, что копируется file1, потом file2 и т.д.

[Stilet]

Или предложите

Опять таки в потоке поблочное считывание (по 1Кбайту) и вписывание.
или в цикле при присутствии в нем же метода ProcessMessages

[tarakan1983]

Прошу прощенья, но мне немного непонятно.

[Stilet]

А так?:
http://www.programmersforum.ru/showthread.php?t=56230
http://www.delphiworld.narod.ru/base...opy_files.html
http://www.delphiworld.narod.ru/base...ogressbar.html

[tarakan1983]

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

[Var17]

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

Вот замечательная функция для копирования:

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;

Столкнулся с проблемой: не копирует папки с CD диска. Есть ли решение данной проблемы ?

[Virus25]

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

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

Используй таймер для этого например так:

Timer1.Enabled:=True;
FullDirectoryCopy(SourceDir,TargetDir: String; StopIfNotAllCopied,
OverWriteFiles: Boolean);
Timer1.Enabled:=False;

а в таймер ставь код:

Application.ProcessMessages;

на таймере сделай интервал 100 и пробуй у меня сработало.

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

Столкнулся с проблемой: не копирует папки с CD диска. Есть ли решение данной проблемы ?

Проблема возможна и за того что поиск файлов на диске не возможен или диск защищён.