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: CanYouHandleThisFile function result type

Browse source 
(cherry picked from commit a8ebb41c81)
This commit is contained in:
Alexander Koblov 2026-03-16 16:20:04 +03:00
commit 68bbec8ef7
5 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
plugins/wcx/cpio/src/cpio_archive.pas
View file

@ -53,7 +53,7 @@ function ReadHeader(hArcData : TArcHandle; var HeaderData : THeaderData) : Inte
function ProcessFile(hArcData : TArcHandle; Operation : Integer; DestPath : PChar; DestName : PChar) : Integer; dcpcall; export;
procedure SetProcessDataProc(hArcData : TArcHandle; ProcessDataProc : TProcessDataProc); dcpcall; export;
procedure SetChangeVolProc(hArcData : TArcHandle; ChangeVolProc : TChangeVolProc); dcpcall; export;
function CanYouHandleThisFile(FileName: PAnsiChar): Boolean; dcpcall; export;
function CanYouHandleThisFile(FileName: PAnsiChar): LongBool; dcpcall; export;
implementation

4
plugins/wcx/sevenzip/src/SevenZipFunc.pas
View file

@ -40,7 +40,7 @@ procedure SetProcessDataProcW(hArcData : TArcHandle; pProcessDataProc : TProcess
{ Optional }
function PackFilesW(PackedFile: PWideChar; SubPath: PWideChar; SrcPath: PWideChar; AddList: PWideChar; Flags: Integer): Integer; winapi;
function DeleteFilesW(PackedFile, DeleteList: PWideChar): Integer; winapi;
function CanYouHandleThisFileW(FileName: PWideChar): Boolean; winapi;
function CanYouHandleThisFileW(FileName: PWideChar): LongBool; winapi;
procedure ConfigurePacker(Parent: HWND; DllInstance: THandle); winapi;
{ Extension }
procedure ExtensionInitialize(StartupInfo: PExtensionStartupInfo); winapi;
@ -501,7 +501,7 @@ begin
Result:= E_NOT_SUPPORTED;
end;
function CanYouHandleThisFileW(FileName: PWideChar): Boolean; winapi;
function CanYouHandleThisFileW(FileName: PWideChar): LongBool; winapi;
begin
if not Is7ZipLoaded then Exit(False);
Result:= FindDecompressFormats(Utf16ToUtf8(WideString(FileName))) <> nil;

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

@ -78,7 +78,7 @@ function DeleteFilesW(PackedFile, DeleteList : PWideChar) : Integer;dcpcall; exp
function GetPackerCaps : Integer;dcpcall; export;
function GetBackgroundFlags: Integer; dcpcall; export;
procedure ConfigurePacker (Parent: HWND; DllInstance: THandle);dcpcall; export;
function CanYouHandleThisFileW(FileName: PWideChar): Boolean; dcpcall; export;
function CanYouHandleThisFileW(FileName: PWideChar): LongBool; dcpcall; export;
{Extension API}
procedure ExtensionInitialize(StartupInfo: PExtensionStartupInfo); dcpcall; export;
@ -578,7 +578,7 @@ begin
CreateZipConfDlg;
end;
function CanYouHandleThisFileW(FileName: PWideChar): Boolean; dcpcall; export;
function CanYouHandleThisFileW(FileName: PWideChar): LongBool; dcpcall; export;
begin
try
Result:= (AbDetermineArcType(UTF16ToUTF8(UnicodeString(FileName)), atUnknown) <> atUnknown);

4
src/uwcxmodule.pas
View file

@ -138,7 +138,7 @@ Type
function WcxProcessFile(hArcData: TArcHandle; Operation: LongInt; DestPath, DestName: String): LongInt;
function WcxPackFiles(PackedFile, SubPath, SrcPath, AddList: String; Flags: LongInt): LongInt;
function WcxDeleteFiles(PackedFile, DeleteList: String): LongInt;
function WcxCanYouHandleThisFile(FileName: String): Boolean;
function WcxCanYouHandleThisFile(FileName: String): LongBool;
function WcxStartMemPack(Options: LongInt; FileName: String): TArcHandle;
procedure WcxSetChangeVolProc(hArcData: TArcHandle); overload;
procedure WcxSetChangeVolProc(hArcData: TArcHandle; ChangeVolProcA: TChangeVolProc; ChangeVolProcW: TChangeVolProcW); overload;
@ -350,7 +350,7 @@ begin
Result:= DeleteFiles(PAnsiChar(CeUtf8ToSys(PackedFile)), PAnsiChar(CeUtf8ToSys(DeleteList)));
end;
function TWcxModule.WcxCanYouHandleThisFile(FileName: String): Boolean;
function TWcxModule.WcxCanYouHandleThisFile(FileName: String): LongBool;
begin
if Assigned(CanYouHandleThisFileW) then
Result:= CanYouHandleThisFileW(PWideChar(CeUtf8ToUtf16(FileName)))

4
src/uwcxprototypes.pas
View file

@ -25,7 +25,7 @@ type
TStartMemPack = function (Options: Integer; FileName: PAnsiChar): TArcHandle;
TPackToMem = function (hMemPack: TArcHandle; BufIn: PByte; InLen: Integer; Taken: pInteger; BufOut: PByte; OutLen: Integer; Written: pInteger; SeekBy: pInteger): Integer;
TDoneMemPack = function (hMemPack: TArcHandle): Integer;
TCanYouHandleThisFile = function (FileName: PAnsiChar): boolean;
TCanYouHandleThisFile = function (FileName: PAnsiChar): LongBool;
TPackSetDefaultParams = procedure (dps: pPackDefaultParamStruct);
TReadHeaderEx = function (hArcData: TArcHandle; var HeaderDataEx : THeaderDataEx): Integer;
TPkSetCryptCallback = procedure (PkCryptProc: TPkCryptProc; CryptoNr, Flags: Integer);
@ -39,7 +39,7 @@ type
TPackFilesW = function (PackedFile, SubPath, SrcPath, AddList: PWideChar; Flags: Integer): Integer;
TDeleteFilesW = function (PackedFile, DeleteList: PWideChar): Integer;
TStartMemPackW = function (Options: Integer; FileName: PWideChar): TArcHandle;
TCanYouHandleThisFileW = function (FileName: PWideChar): boolean;
TCanYouHandleThisFileW = function (FileName: PWideChar): LongBool;
TPkSetCryptCallbackW = procedure (PkCryptProc: TPkCryptProcW; CryptoNr, Flags: Integer);
{$CALLING DEFAULT}