Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.02;
Скачать: CL | DM;

Вниз

Копирование файлов+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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
1-4358
AlexeyMir
2002-11-22 10:42
2002.12.02
TListView


1-4435
Ренат
2002-11-19 08:24
2002.12.02
Типизированные файлы


8-4514
Vius
2002-08-15 18:28
2002.12.02
Возможно ли на TImageSprite написать текст?


1-4335
vlv
2002-11-14 16:26
2002.12.02
Взаимодействие приложения и dll


3-4237
Akhmadey
2002-11-12 20:42
2002.12.02
Проблема с DBChart