Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизКопирование файлов+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);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.014 c