Цитата:
Сообщение от lmikle
Нет, не так.
Как-то так:
Код:
if total then
form1.ProgressBar1.Max := archives.count*100 else
form1.ProgressBar1.Position := (i-1)*100 + value;
Result := S_OK;
|
всё равно показует каждый архив в отдельности, только ещё хуже)
сразу прогрес заполняется и приложение подвисает до след архива.
подскажи лучше как сделать через размеры архивов.
может напрямую через 7z.dll будет проще?
да кстате если сделать лабел с именем архива так
label2.Caption:='извлекается архив '+archives.strings[i];
то имя появляется только на последнем архиве.