| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование файлов+ProgressBar [D6, WinXP]
chak © (2002-11-22 12:29:00)Собственно, как можно отобразить ход копирования файла в ProgressBar-е.
_Nicola_ (2002-11-22 13:54:00) [1]Если не хочется работать головой - есть в 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);
asmith (2002-11-22 13:34:00) [2]Пусть, например, имена файлов содержатся в списке 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;
iNew (2002-11-22 13:19:00) [3]По BlockRead в хелпе есть пример.
Song (2002-11-22 13:12:00) [4]ShFileOperation()
chak (2002-11-22 13:02:00) [5]А можно примерчик небольшой?
iNew (2002-11-22 12:57:00) [6]BlockRead
Opuhshii (2002-11-22 12:30:00) [7]CopyFileEx
| |
