Browse Source

* No symlink support on WinCE

Michaël Van Canneyt 2 years ago
parent
commit
0639ec476d
1 changed files with 0 additions and 11 deletions
  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;