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

* fix problem with network drives

Browse Source
This commit is contained in:
pierre 2003-01-27 14:01:51 +00:00
parent f14e276fc7
commit 6a58091c67
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fv/stddlg.pas
View File

@ -2519,8 +2519,11 @@ begin
FindFirst(ExpPath, Directory, SR);
PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
{$ifdef NetDrive}
if (DosError=66) or (DosError=123) then
if (DosError<>0) and (length(ExpPath)>2) and
(ExpPath[1]='\') and (ExpPath[2]='\')then
begin
{ Checking '\\machine\sharedfolder' directly always fails..
rather try '\\machine\sharedfolder\*' PM }
{$ifdef fpc}
FindClose(SR);
{$endif}

5
fvision/stddlg.pas
View File

@ -2519,8 +2519,11 @@ begin
FindFirst(ExpPath, Directory, SR);
PathValid := (DosError = 0) and (SR.Attr and Directory <> 0);
{$ifdef NetDrive}
if (DosError=66) or (DosError=123) then
if (DosError<>0) and (length(ExpPath)>2) and
(ExpPath[1]='\') and (ExpPath[2]='\')then
begin
{ Checking '\\machine\sharedfolder' directly always fails..
rather try '\\machine\sharedfolder\*' PM }
{$ifdef fpc}
FindClose(SR);
{$endif}