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: Don't expand a virtual path under Windows

Browse source 
(cherry picked from commit 70262a35d4)
This commit is contained in:
Alexander Koblov 2023-09-28 19:45:56 +03:00
commit c7bc5e6392
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/udcutils.pas
View file

@ -357,14 +357,19 @@ begin
end;
function mbExpandFileName(const sFileName: String): String;
const
PATH_DELIM_POS = {$IFDEF MSWINDOWS}1{$ELSE}0{$ENDIF};
begin
if (Pos('://', sFileName) > 2) then
Result:= sFileName
else begin
Result:= NormalizePathDelimiters(sFileName);
Result:= ReplaceEnvVars(Result);
if Pos(PathDelim, Result) <> 0 then
if Pos(PathDelim, Result) > PATH_DELIM_POS then
begin
Result:= ExpandFileName(Result);
end;
{$IF DEFINED(MSWINDOWS)}
// Remove double backslash '\\' after calling 'ExpandFileName'