Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c