Tweak archive extraction mode logging.

Projects/Src/Compression.SevenZipDllDecoder.pas

@@ -20,6 +20,7 @@ uses
 procedure InitSevenZipLibrary(const DllFilename: String);
 
 function IsExtractArchiveRedirAvailable: Boolean;
+function GetSevenZipLibraryName: String;
 
 procedure ExtractArchiveRedir(const DisableFsRedir: Boolean;
   const ArchiveFilename, DestDir, Password: String; const FullPaths: Boolean;
@@ -436,6 +437,11 @@ begin
   Result := Assigned(CreateSevenZipObject);
 end;
 
+function GetSevenZipLibraryName: String;
+begin
+  Result := SevenZipLibraryName;
+end;
+
 procedure ExtractArchiveRedir(const DisableFsRedir: Boolean;
   const ArchiveFilename, DestDir, Password: String;
   const FullPaths: Boolean; const OnExtractionProgress: TOnExtractionProgress);

Projects/Src/Setup.ScriptDlg.pas

@@ -1187,14 +1187,13 @@ begin
 end;
 
 procedure TExtractionWizardPage.Extract;
-const
-  SExtractionMode: array[Boolean] of String = ('Built-in', 'Using 7z(xa).dll');
 begin
   FAbortedByUser := False;
 
   const ExtractArchiveRedirAvailable = IsExtractArchiveRedirAvailable;
 
-  LogFmt('Archive extraction mode: %s', [SExtractionMode[ExtractArchiveRedirAvailable]]);
+  LogFmt('Archive extraction mode: %s',
+    [IfThen(ExtractArchiveRedirAvailable, Format('Using %s', [GetSevenZipLibraryName]), 'Built-in')]);
 
   for var A in FArchives do begin
     { Don't need to set DownloadTemporaryFileOrExtractArchiveProcessMessages before extraction since we already process messages ourselves }