Преглед на файлове

* Do not raise exception

Michaël Van Canneyt преди 1 година
родител
ревизия
025ad39ef0
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      rtl/win/sysutils.pp

+ 1 - 1
rtl/win/sysutils.pp

@@ -544,7 +544,7 @@ end;
 
 function FileGetSymLinkTarget(const FileName: UnicodeString; out SymLinkRec: TUnicodeSymLinkRec): Boolean;
 begin
-  Result := FileGetSymLinkTargetInt(FileName, SymLinkRec, True) = slrOk;
+  Result := FileGetSymLinkTargetInt(FileName, SymLinkRec, False) = slrOk;
 end;