Change this
Code:
LabelPct1.Caption := IntToStr(OveralPct div 10) '.' chr(48 OveralPct mod 10) '%';
LabelCurrFileName.Caption:=ExpandConstant('{cm:ExtractedFile} ') MinimizePathName(CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width-ScaleX(100));
LabelTime1.Caption:=ExpandConstant('{cm:ElapsedTime} ') TimeStr2;
LabelTime2.Caption:=ExpandConstant('{cm:RemainingTime} ') TimeStr1;
LabelTime3.Caption:=ExpandConstant('{cm:AllElapsedTime}') TimeStr3;
to this
Code:
LabelCurrFileName.Caption:=ExpandConstant('{cm:ExtractedFile} ') MinimizePathName(ExpandConstant('{app}\ ') + CurrentFile, LabelCurrFileName.Font,WizardForm.FilenameLabel.Width);