ProgressOn("Расспковка архива", "Пожалуйста подождите")
run("путь к SFX архиву")
$max = размер рассписаных файлов ;
While $Size < $max
$Size = DirGetSize("путь к расписывающей папке")
$cur = ($Size/$max*100)
ProgressSet($cur);
Sleep(1000);
WEnd
ProgressOff();