瀏覽代碼

* No symlink support on WinCE

Michaël Van Canneyt 2 年之前
父節點
當前提交
0639ec476d
共有 1 個文件被更改,包括 0 次插入11 次删除
  1. 0 11
      rtl/wince/sysutils.pp

+ 0 - 11
rtl/wince/sysutils.pp

@@ -282,17 +282,6 @@ begin
   FN:=FileName;
   FN:=FileName;
   if Not GetFileAttributesExW(PWideChar(FileName), GetFileExInfoStandard, @Data) then
   if Not GetFileAttributesExW(PWideChar(FileName), GetFileExInfoStandard, @Data) then
     exit;
     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;
   DateTime.Data:=Data;
   Result:=True;
   Result:=True;
 end;
 end;