diff --git a/WZlib/WZArchive.pas b/WZlib/WZArchive.pas index 608d98b..fc3c6f9 100644 --- a/WZlib/WZArchive.pas +++ b/WZlib/WZArchive.pas @@ -40,6 +40,9 @@ TWZArchive = class implementation +uses + MainUnit; + function TWZArchive.ResolveFullPath(P: string): TWZIMGEntry; var Split: TArray; @@ -129,7 +132,9 @@ procedure TWZArchive.Load; FHeaderSize := FReader.ReadInt; FCopyright := FReader.ReadNullTerminatedString; // if not Is64Bit then - FVersion := DecodeVersion(FReader.ReadShort); + + if (MainForm.ComboKey.ItemIndex = 0) or (MainForm.ComboKey.ItemIndex = 2) or (MainForm.ComboKey.ItemIndex = 3) then + FVersion := DecodeVersion(FReader.ReadShort); ParseDirectory(FRoot); Off := FReader.Position;