Главная страница
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.037 c
1-52992
Вопросик
2003-02-10 11:39
2003.02.17
Проблемы с OLE


4-53328
qwant
2003-01-07 20:51
2003.02.17
Передать текст в Edit чужого приложения


9-52698
pasha676
2002-09-13 09:28
2003.02.17
Пересечения 3D объектов


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


4-53346
akvilon
2003-01-06 18:44
2003.02.17
События за пределами формы.