| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите, как скопировать директорию, привязав к ProgressBar? [D6, Win95/98, WinME, Win2k]

pop-corn ©   (2003-02-09 00:00:00) 

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

---

Style   (2003-02-09 00:32:00) [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 тормозит выполняемый прогресс конкретно!

---

Наверх