Installer: show progress while removing old .debug files

(cherry picked from commit 324570712e)
This commit is contained in:
Jernej Simončič 2018-07-05 17:29:59 +02:00 committed by Jehan
parent 655a874f1b
commit d2190e70df

View file

@ -1571,7 +1571,8 @@ end;
procedure RemoveDebugFilesFromDir(pDir: String; var pDirectories: TArrayOfString);
var FindRec: TFindRec;
begin
DebugMsg('RemoveDebugFilesFromDir', pDir);
DebugMsg('RemoveDebugFilesFromDir', pDir);
WizardForm.FilenameLabel.Caption := pDir;
if FindFirst(AddBackSlash(pDir) + '*', FindRec) then
begin
try