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

UPD: Zip plugin: Update uclassesex module.

Browse source
This commit is contained in:
cobines 2011-06-06 15:57:11 +00:00
commit d95e508ed7
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
plugins/wcx/zip/fparchive/uclassesex.pas
View file

@ -118,7 +118,11 @@ constructor TFileStreamEx.Create(const AFileName: UTF8String; Mode: Word);
var
H: System.THandle;
begin
{$IF (FPC_VERSION > 2) or ((FPC_VERSION=2) and (FPC_RELEASE >= 5))}
if (Mode and fmCreate) <> 0 then
{$ELSE}
if Mode = fmCreate then
{$ENDIF}
begin
H:= mbFileCreate(AFileName);
if H = feInvalidHandle then
@ -194,7 +198,7 @@ end;
var
Info: BaseUnix.Stat;
begin
Result:= Cardinal(-1);
Result:= faInvalidAttributes;
if fpLStat(FileName, @Info) >= 0 then
Result:= Info.st_mode;
end;
@ -210,7 +214,7 @@ begin
end;
{$ELSE}
begin
Result:= fpMkDir(PChar(NewDir), $FFF) = 0;
Result:= fpMkDir(PChar(NewDir), $1FF) = 0; // $1FF = &0777
end;
{$ENDIF}
@ -233,7 +237,7 @@ end;
function mbFileSize(const FileName: UTF8String): Int64;
{$IFDEF MSWINDOWS}
var
Handle: THandle;
Handle: System.THandle;
FindData: TWin32FindDataW;
wFileName: WideString;
begin