diff --git a/Projects/Src/Setup.FileExtractor.pas b/Projects/Src/Setup.FileExtractor.pas index 18b26b84..54802afa 100644 --- a/Projects/Src/Setup.FileExtractor.pas +++ b/Projects/Src/Setup.FileExtractor.pas @@ -114,7 +114,7 @@ procedure TFileExtractor.SetCryptKey(const Value: TSetupEncryptionKey); class function TFileExtractor.FindSliceFilename(const ASlice: Integer): String; var Major, Minor: Integer; - Prefix, F1, F2, Path: String; + Prefix, F1, Path: String; begin Prefix := PathChangeExt(PathExtractName(SetupLdrOriginalFilename), ''); Major := ASlice div SetupHeader.SlicesPerDisk + 1; @@ -123,21 +123,14 @@ class function TFileExtractor.FindSliceFilename(const ASlice: Integer): String; F1 := Format('%s-%d.bin', [Prefix, Major]) else F1 := Format('%s-%d%s.bin', [Prefix, Major, Chr(Ord('a') + Minor)]); - F2 := Format('..\DISK%d\', [Major]) + F1; if LastSourceDir <> '' then begin Result := AddBackslash(LastSourceDir) + F1; if NewFileExists(Result) then Exit; end; Result := AddBackslash(SourceDir) + F1; if NewFileExists(Result) then Exit; - if LastSourceDir <> '' then begin - Result := PathExpand(AddBackslash(LastSourceDir) + F2); - if NewFileExists(Result) then Exit; - end; - Result := PathExpand(AddBackslash(SourceDir) + F2); - if NewFileExists(Result) then Exit; Path := SourceDir; - LogFmt('Asking user for new disk containing "%s".', [F1]); + LogFmt('Asking user for new disk containing "%s".', [F1]); if SelectDisk(Major, F1, Path) then begin LastSourceDir := Path; Result := AddBackslash(Path) + F1; diff --git a/whatsnew.htm b/whatsnew.htm index e18a0c65..49bab856 100644 --- a/whatsnew.htm +++ b/whatsnew.htm @@ -93,6 +93,7 @@