Explorar o código

* No symlink support on WinCE

Michaël Van Canneyt %!s(int64=2) %!d(string=hai) anos
pai
achega
380c1839cf
Modificáronse 1 ficheiros con 0 adicións e 11 borrados
  1. 0 11
      rtl/wince/sysutils.pp

+ 0 - 11
rtl/wince/sysutils.pp

@@ -282,17 +282,6 @@ begin
   FN:=FileName;
   if Not GetFileAttributesExW(PWideChar(FileName), GetFileExInfoStandard, @Data) then
     exit;
-  if ((Data.dwFileAttributes and faSymlink)=faSymlink) then
-    begin
-    if FollowLink then
-      begin
-      FN:=FollowSymlink(FileName);
-      if FN='' then 
-        exit; 
-      if not GetFileAttributesExW(PWideChar(FN), GetFileExInfoStandard, @Data) then
-        exit;
-      end;
-    end;
   DateTime.Data:=Data;
   Result:=True;
 end;