mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: cm_OpenArchive behavior for registered extensions

Browse source 
(cherry picked from commit 698d682e04)
This commit is contained in:
Alexander Koblov 2026-03-16 17:04:18 +03:00
commit fa62f723cd
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/filesources/wcxarchive/uwcxarchivefilesource.pas
View file

@ -283,7 +283,16 @@ begin
WcxPlugin := gWCXPlugins.LoadModule(ModuleFileName);
if Assigned(WcxPlugin) then
begin
if ((gWCXPlugins.Flags[I] and PK_CAPS_BY_CONTENT) = PK_CAPS_BY_CONTENT) then
if MatchesMask(anArchiveFileName, AllFilesMask + ExtensionSeparator + gWCXPlugins.Ext[I]) then
begin
anArchiveHandle:= WcxPlugin.OpenArchiveHandle(anArchiveFileName, PK_OM_LIST, lOpenResult);
if (anArchiveHandle <> 0) and (lOpenResult = E_SUCCESS) then
begin
bFound:= True;
Break;
end;
end
else if ((gWCXPlugins.Flags[I] and PK_CAPS_BY_CONTENT) = PK_CAPS_BY_CONTENT) then
begin
if (WcxPlugin <> WcxPrevious) then
begin
@ -298,11 +307,6 @@ begin
end;
end;
end;
end
else if ((gWCXPlugins.Flags[I] and PK_CAPS_HIDE) = PK_CAPS_HIDE) then
begin
bFound:= MatchesMask(anArchiveFileName, AllFilesMask + ExtensionSeparator + gWCXPlugins.Ext[I]);
if bFound then Break;
end;
end;
end;