Installer: show progress while removing old .debug files
(cherry picked from commit 324570712e)
This commit is contained in:
parent
655a874f1b
commit
d2190e70df
1 changed files with 2 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue