Копирование файлов+ProgressBar

← →
chak © (2002-11-22 12:29) [0]

Собственно, как можно отобразить ход копирования файла в ProgressBar-е.

← →
Opuhshii © (2002-11-22 12:30) [1]

CopyFileEx

← →
iNew © (2002-11-22 12:57) [2]

BlockRead

← →
chak © (2002-11-22 13:02) [3]

А можно примерчик небольшой?

← →
Song © (2002-11-22 13:12) [4]

ShFileOperation()

← →
iNew © (2002-11-22 13:19) [5]

По BlockRead в хелпе есть пример.

← →
asmith (2002-11-22 13:34) [6]

Пусть, например, имена файлов содержатся в списке lstFiles, а pb - ProgressBar, пишем:
with pb do
begin
Step := 1;
Min := 0;
Max := lstFiles.Count - 1;
for iIndex = 0 to lstFiles.Count - 1 do
begin
CopyFile(PChar(lstFiles[iIndex]), "c:\target_dir\new_name.ext");
StepIt();
Update();
end;
end;

← →
_Nicola_ (2002-11-22 13:54) [7]

Если не хочется работать головой - есть в RxLibrary функция CopyFile.
Unit FileUtil
Declaration
procedure CopyFile(const FileName, DestName: string; ProgressControl: TControl);
Description
Функция предназначена для копирования файла FileName в файл с именем DestName. Если параметр ProgressControl содержит значение, отличное от nil, то элемент управления, заданный этим параметром, (например, TGauge в 16-битной версии или TProgressBar в Win32) будет отображать процесс копирования файла.

Example
CopyFile("c:\work\unit1.pas", "d:\test\unit1.pas", Gauge);

Копирование файлов+ProgressBar Найти похожие ветки