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

ADD: Detect archive type by content for rar plugin (fixes 0000356)

Browse source
This commit is contained in:
Alexander Koblov 2012-03-18 10:21:17 +00:00
commit 54ddfa27fc
6 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
install/darwin/doublecmd.xml
View file

@ -65,7 +65,7 @@
<WcxPlugin Enabled="True">
<ArchiveExt>rar</ArchiveExt>
<Path>%commander_path%/plugins/wcx/unrar/unrar.wcx</Path>
<Flags>4</Flags>
<Flags>68</Flags>
</WcxPlugin>
</WcxPlugins>
<WdxPlugins>

2
install/linux/doublecmd.xml
View file

@ -87,7 +87,7 @@
<WcxPlugin Enabled="True">
<ArchiveExt>rar</ArchiveExt>
<Path>%commander_path%/plugins/wcx/unrar/unrar.wcx</Path>
<Flags>4</Flags>
<Flags>68</Flags>
</WcxPlugin>
</WcxPlugins>
<WdxPlugins>

2
install/windows/doublecmd.xml
View file

@ -75,7 +75,7 @@
<WcxPlugin Enabled="True">
<ArchiveExt>rar</ArchiveExt>
<Path>%commander_path%\plugins\wcx\unrar\unrar.wcx</Path>
<Flags>4</Flags>
<Flags>68</Flags>
</WcxPlugin>
</WcxPlugins>
<WdxPlugins>

4
plugins/wcx/unrar/src/unrar.dpr
View file

@ -4,6 +4,7 @@ uses
SysUtils, DynLibs, UnRARFunc;
exports
{ Mandatory }
OpenArchive,
OpenArchiveW,
ReadHeader,
@ -16,6 +17,9 @@ exports
SetChangeVolProcW,
SetProcessDataProc,
SetProcessDataProcW,
{ Optional }
GetPackerCaps,
{ Extension API }
ExtensionInitialize;
begin

6
plugins/wcx/unrar/src/unrarfunc.pas
View file

@ -191,6 +191,7 @@ procedure SetChangeVolProc(hArcData : TArcHandle; pChangeVolProc : TChangeVolPro
procedure SetChangeVolProcW(hArcData : TArcHandle; pChangeVolProc : TChangeVolProcW);dcpcall;
procedure SetProcessDataProc(hArcData : TArcHandle; pProcessDataProc : TProcessDataProc);dcpcall;
procedure SetProcessDataProcW(hArcData : TArcHandle; pProcessDataProc : TProcessDataProcW);dcpcall;
function GetPackerCaps : Integer; dcpcall;
procedure ExtensionInitialize(StartupInfo: PExtensionStartupInfo); dcpcall;
implementation
@ -686,6 +687,11 @@ begin
ProcessDataProcW := pProcessDataProc;
end;
function GetPackerCaps: Integer; dcpcall;
begin
Result := PK_CAPS_MULTIPLE or PK_CAPS_BY_CONTENT;
end;
procedure ExtensionInitialize(StartupInfo: PExtensionStartupInfo); dcpcall;
begin
ExtensionStartupInfo := StartupInfo^;

4
src/platform/udefaultplugins.pas
View file

@ -90,9 +90,9 @@ begin
I:= gWCXPlugins.IndexOfName('rar');
if I < 0 then
gWCXPlugins.Add('rar', 4, Folder + 'unrar' + PathDelim + 'unrar.wcx')
gWCXPlugins.Add('rar', 68, Folder + 'unrar' + PathDelim + 'unrar.wcx')
else
gWCXPlugins.Flags[I]:= 4;
gWCXPlugins.Flags[I]:= 68;
// Wfx plugins
Folder:= '%commander_path%' + PathDelim + 'plugins' + PathDelim + 'wfx' + PathDelim;