Commit 32457071 authored by Jernej Simončič's avatar Jernej Simončič

Installer: show progress while removing old .debug files

parent 16562649
......@@ -1566,7 +1566,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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment