paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:09:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: fixed ExpandFileNameUTF8 for \\?\

Browse Source 
git-svn-id: branches/fixes_2_0@59364 -
This commit is contained in:
mattias 2018-10-27 09:41:50 +00:00
parent 8ef8549968
commit 46a767dfc3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/winlazfileutils.inc
View File

@ -545,7 +545,7 @@ begin
//See: http://msdn.microsoft.com/en-us/library/windows/desktop/aa365247%28v=vs.85%29.aspx //See: http://msdn.microsoft.com/en-us/library/windows/desktop/aa365247%28v=vs.85%29.aspx
if (Length(Fn) > 3) and (Fn[1] = PathDelim) and (Fn[2] = PathDelim) and if (Length(Fn) > 3) and (Fn[1] = PathDelim) and (Fn[2] = PathDelim) and
(Fn[3] = '?') and (Fn[4] = PathDelim) //Do NOT use AllowDirectorySeparators here! (Fn[3] = '?') and (Fn[4] = PathDelim) //Do NOT use AllowDirectorySeparators here!
then Exit; then Exit(Fn);
ForcePathDelims(Fn); ForcePathDelims(Fn);
IsAbs := FileNameIsWinAbsolute(Fn); IsAbs := FileNameIsWinAbsolute(Fn);
if not IsAbs then if not IsAbs then