-- Прогресс бар
function Callback_ZIP(String, Percent, Status)
-- Extracting: путь к папке назначения + извлекаемый файл
Label.SetText("Label1", String);
if (Status == ZIP_STATUS_MINOR) then -- для извлекаемого файла
Progress.SetCurrentPos("Progress1", Percent); -- процент распаковки
Progress.SetText("Progress1", Percent.."%"); -- отображаем проценты
elseif (Status == ZIP_STATUS_MAJOR) then -- общий прогресс
Progress.SetCurrentPos("Progress2", Percent);
Progress.SetText("Progress2", Percent.."%");
end
end
-- Распаковка на устройство
Zip.Extract("Buildfiles\\VirtualBox.zip", {"*.*"}, entry.."\\", true, true, "", ZIP_OVERWRITE_NEVER, Callback_ZIP);
-- Информационное сообщение
Paragraph.SetText("infowin", "VirtualBox установлен") |
