paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 16:50:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Luiz Américo to fix direxists

Browse Source 
git-svn-id: trunk@1334 -
This commit is contained in:
michael 2005-10-08 13:49:30 +00:00
parent a6b84b93e1
commit 9a1052e1be
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/win32/sysutils.pp
View File

@ -259,16 +259,13 @@ end;
Function DirectoryExists (Const Directory : String) : Boolean;
var
Handle: THandle;
FindData: TWin32FindData;
Attr:Dword;
begin
Result:=False;
Handle := FindFirstFile(Pchar(Directory), FindData);
If (Handle <> INVALID_HANDLE_VALUE) then
begin
Result:=((FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY);
Windows.FindClose(Handle);
end;
Attr:=GetFileAttributes(PChar(Directory));
if Attr <> $ffffffff then
Result:= (Attr and FILE_ATTRIBUTE_DIRECTORY) > 0
else
Result:=False;
end;