Вопрос How to avoid viewing the files (LabelCurrFileName) of a particular compressed file? (ISDone 0.6)

[nizcoz]

How to avoid viewing the files (LabelCurrFileName) of a particular compressed file? (ISDone 0.6final)

 

[Nemko]

nizcoz, maybe it will help, edit your ISDone function ProgressCallback:

Спойлер: Exp

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
var//________________________________________________________________
  S1, S2: string;   // Variables for the function
begin
  S1:=CurrentFile;  // Comparison string
  S2:='FILE.FORMAT';// What we are looking for
////_________________________________________________________________
  if OveralPct<=1000 then ISDoneProgressBar1.Position := OveralPct;
  LabelPct1.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
#ifdef SecondProgressBar
  if CurrentPct<=1000 then ISDoneProgressBar2.Position := CurrentPct;
  LabelPct2.Caption := IntToStr(CurrentPct div 10)+'.'+chr(48 + CurrentPct mod 10)+'%';
#endif
////_Add a string comparison process_________________________________
  if CompareStr(S1, S2) = 0 then LabelCurrFileName.Caption:=ExpandConstant('{cm:ExtractedFile} ')+'YOUR INSCRIPTOR' else
  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;
  Result := ISDoneCancel;
end;

 

[nizcoz]

@Nemko Could you give me an example?

S1:=CurrentFile; What should I put here?

S2:='FILE.FORMAT'; What should I put here?

if CompareStr(S1, S2) = 0 then LabelCurrFileName.Caption:=ExpandConstant('{cm:ExtractedFile} ')+'YOUR INSCRIPTOR' else

 

[Nemko]

nizcoz,

 

[nizcoz]

Thanks @Nemko !!!!