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: Zip - GetBackgroundFlags function (issue #665)

Browse source
This commit is contained in:
Alexander Koblov 2022-11-14 18:41:32 +03:00
commit 4d85d6d474
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
plugins/wcx/zip/src/Zip.dpr
View file

@ -27,6 +27,7 @@ exports
DeleteFilesW,
GetPackerCaps,
ConfigurePacker,
GetBackgroundFlags,
CanYouHandleThisFileW,
{ Extension API }
ExtensionInitialize;

6
plugins/wcx/zip/src/ZipFunc.pas
View file

@ -71,6 +71,7 @@ procedure SetProcessDataProcW(hArcData : TArcHandle; pProcessDataProc : TProcess
function PackFilesW(PackedFile: PWideChar; SubPath: PWideChar; SrcPath: PWideChar; AddList: PWideChar; Flags: Integer): Integer;dcpcall;
function DeleteFilesW(PackedFile, DeleteList : PWideChar) : Integer;dcpcall;
function GetPackerCaps : Integer;dcpcall;
function GetBackgroundFlags: Integer; dcpcall;
procedure ConfigurePacker (Parent: HWND; DllInstance: THandle);dcpcall;
function CanYouHandleThisFileW(FileName: PWideChar): Boolean; dcpcall;
{Extension API}
@ -457,6 +458,11 @@ begin
or PK_CAPS_ENCRYPT;
end;
function GetBackgroundFlags: Integer; dcpcall;
begin
Result:= BACKGROUND_UNPACK or BACKGROUND_PACK;
end;
procedure ConfigurePacker(Parent: HWND; DllInstance: THandle);dcpcall;
begin
CreateZipConfDlg;