mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Overlong path support in several functions

Browse source
This commit is contained in:
Alexander Koblov 2016-08-19 22:19:57 +00:00
commit bb1bdcbab2
2 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/platform/uOSUtils.pas
View file

@ -232,7 +232,7 @@ uses
fConfirmCommandLine, uLog, DCConvertEncoding, LazUTF8
{$IF DEFINED(MSWINDOWS)}
, JwaWinCon, Windows, uNTFSLinks, uMyWindows, JwaWinNetWk,
uShlObjAdditional, shlobj
uShlObjAdditional, shlobj, DCWindows
{$ENDIF}
{$IF DEFINED(UNIX)}
, BaseUnix, Unix, uMyUnix, dl
@ -494,10 +494,10 @@ begin
end;
{$ELSE}
var
wPath: WideString;
wPath: UnicodeString;
begin
wPath:= UTF8Decode(Path);
Result:= GetDiskFreeSpaceExW(PWChar(wPath), FreeSize, TotalSize, nil);
wPath:= UTF16LongName(Path);
Result:= GetDiskFreeSpaceExW(PWideChar(wPath), FreeSize, TotalSize, nil);
end;
{$ENDIF}

10
src/platform/win/umywindows.pas
View file

@ -392,16 +392,16 @@ var
cchBuffer: DWORD;
begin
Result:= False;
wsLongPath:= UTF8Decode(sLongPath);
wsLongPath:= UTF16LongName(sLongPath);
cchBuffer:= GetShortPathNameW(PWideChar(wsLongPath), nil, 0);
if cchBuffer = 0 then Exit;
SetLength(wsShortPath, cchBuffer);
cchBuffer:= GetShortPathNameW(PWideChar(wsLongPath), PWideChar(wsShortPath), cchBuffer);
if cchBuffer <> 0 then
begin
sShortPath:= AnsiString(wsShortPath);
Result:= True;
end;
begin
sShortPath:= AnsiString(wsShortPath);
Result:= True;
end;
end;
function GetFileOwner(const sPath: String; out sUser, sGroup: String): Boolean;