paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-11 10:10:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* try to solve bug report 2102 part B

Browse Source
This commit is contained in:
pierre 2002-09-03 06:31:13 +00:00
parent bddbfae551
commit cd7040b19e
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fv/stddlg.pas
View File

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

6
fvision/stddlg.pas
View File

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