浏览代码

* previous fix also applies to go32v2 mode

pierre 23 年之前
父节点
当前提交
4537143bb6
共有 2 个文件被更改,包括 2 次插入10 次删除
  1. 1 5
      fv/stddlg.pas
  2. 1 5
      fvision/stddlg.pas

+ 1 - 5
fv/stddlg.pas

@@ -2519,11 +2519,7 @@ begin
     FindFirst(ExpPath, Directory, SR);
     PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
 {$ifdef NetDrive}
-    if (DosError=66)
-{$ifdef win32}
-       or (DosError=123)
-{$endif win32}
-       then
+    if (DosError=66) or (DosError=123) then
       begin
       {$ifdef fpc}
         FindClose(SR);

+ 1 - 5
fvision/stddlg.pas

@@ -2519,11 +2519,7 @@ begin
     FindFirst(ExpPath, Directory, SR);
     PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
 {$ifdef NetDrive}
-    if (DosError=66)
-{$ifdef win32}
-       or (DosError=123)
-{$endif win32}
-       then
+    if (DosError=66) or (DosError=123) then
       begin
       {$ifdef fpc}
         FindClose(SR);