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: Some functions for Unicode support in WCX plugins

Browse source
This commit is contained in:
Alexander Koblov 2010-01-27 10:31:18 +00:00
commit dcfbd364d4
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/uwcxmodule.pas
View file

@ -117,6 +117,8 @@ Type
function WcxPackFiles(PackedFile, SubPath, SrcPath, AddList: UTF8String; Flags: LongInt): LongInt;
function WcxDeleteFiles(PackedFile, DeleteList: UTF8String): LongInt;
function WcxCanYouHandleThisFile(FileName: UTF8String): Boolean;
procedure WcxSetChangeVolProc(hArcData: TArcHandle; ChangeVolProcA: TChangeVolProc; ChangeVolProcW: TChangeVolProcW);
procedure WcxSetProcessDataProc(hArcData: TArcHandle; ProcessDataProcA: TProcessDataProc; ProcessDataProcW: TProcessDataProcW);
function LoadModule(const sName:String):Boolean; {Load WCX plugin}
procedure UnloadModule; {UnLoad WCX plugin}
@ -249,6 +251,24 @@ begin
Result:= CanYouHandleThisFile(PAnsiChar(UTF8ToSys(FileName)));
end;
procedure TWCXModule.WcxSetChangeVolProc(hArcData: TArcHandle;
ChangeVolProcA: TChangeVolProc; ChangeVolProcW: TChangeVolProcW);
begin
if Assigned(SetChangeVolProcW) then
SetChangeVolProcW(hArcData, ChangeVolProcW)
else if Assigned(SetChangeVolProc) then
SetChangeVolProc(hArcData, ChangeVolProcA);
end;
procedure TWCXModule.WcxSetProcessDataProc(hArcData: TArcHandle;
ProcessDataProcA: TProcessDataProc; ProcessDataProcW: TProcessDataProcW);
begin
if Assigned(SetProcessDataProcW) then
SetProcessDataProcW(hArcData, ProcessDataProcW)
else if Assigned(SetProcessDataProc) then
SetProcessDataProc(hArcData, ProcessDataProcA);
end;
function TWCXModule.LoadModule(const sName:String):Boolean;
var
PackDefaultParamStruct : TPackDefaultParamStruct;