Главная страница
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.02 c
1-52941
Вадим
2003-02-09 03:49
2003.02.17
время в формате Unix -> TDateTime


3-52758
kalliopiy
2003-01-30 17:46
2003.02.17
Перемещение по таблице


4-53325
KPV-10k
2003-01-06 21:15
2003.02.17
Как программно можно разблокировать рабочую станцию в Win NT?


1-52924
ghg
2003-02-06 09:50
2003.02.17
что-то с выделением памяти


1-53015
SniZ
2003-02-08 16:44
2003.02.17
Строки!