paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 20:13:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: fixed ExpandFileNameUTF8 for \\?\

Browse Source 
git-svn-id: trunk@59352 -
This commit is contained in:
mattias 2018-10-26 08:10:10 +00:00
parent 63cf689e1e
commit 83e2e9a6cd
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
if (Length(Fn) > 3) and (Fn[1] = PathDelim) and (Fn[2] = PathDelim) and
(Fn[3] = '?') and (Fn[4] = PathDelim) //Do NOT use AllowDirectorySeparators here!
then Exit;
then Exit(Fn);
ForcePathDelims(Fn);
IsAbs := FileNameIsWinAbsolute(Fn);
if not IsAbs then