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

Вниз

Подскажите, как скопировать директорию, привязав к ProgressBar?   Найти похожие ветки 

 
pop-corn   (2003-02-09 00:00) [0]

Вот, собсно, и все.


 
Style   (2003-02-09 00:32) [1]


procedure CopyDirProgress(FromDir, ToDir: string);
var
sr: TSearchRec;
Count: integer;
begin
Count := 0;

if FindFirst(FromDir + "\*.*", faAnyFile, sr) = 0 then
begin
repeat
Inc(Count);
until FindNext(sr) <> 0;
FindClose(sr);

ProgressBar1.Min := 0;
ProgressBar1.Max := Count;
ProgressBar1.Position := 0;


if FindFirst(FromDir + "\*.*", faAnyFile, sr) = 0 then
begin
repeat
try
CopyFile(FromDir + "\" + sr.filename,ExtractFileName(sr.filename));
ProgressBar1.Position := ProgressBar1.Position + 1;
except
OnException ShowMessage(sr.filename + " MustDie!");
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;

Вроде такого?
Только проверь я нифига не проверял :)

И это лучше TProgressBar не использовать используй TGauge!!

одна прорисовка TProgressBar тормозит выполняемый прогресс конкретно!



Страницы: 1 вся ветка

Текущий архив: 2003.02.17;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
1-52998
Tundra
2003-02-10 15:23
2003.02.17
Как убрать мерцание в TScrollBar


14-53276
bomberman
2003-02-01 03:18
2003.02.17
Проблема с загрузкой Delphi 5


3-52751
Vovaka
2003-01-30 17:50
2003.02.17
Непонятный глюк Query-DataSource-DBGrid


3-52722
dvp
2003-01-30 09:16
2003.02.17
Поиск по нажатию в LookUp поле


1-52827
Эд
2003-02-07 12:51
2003.02.17
Прокрутить StringGrid