paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ DirectoryExists now closes findfirst handle

Browse Source
This commit is contained in:
michael 2004-01-16 20:53:33 +00:00
parent 143b3f4c05
commit 7c7dd809bf
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/win32/sysutils.pp
View File

@ -213,11 +213,13 @@ var
Handle: THandle;
FindData: TWin32FindData;
begin
Result:=False;
Handle := FindFirstFile(Pchar(Directory), FindData);
Result:=(Handle <> INVALID_HANDLE_VALUE) and
((FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY);
If Result then
If (Handle <> INVALID_HANDLE_VALUE) then
begin
Result:=((FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY);
Windows.FindClose(Handle);
end;
end;
@ -788,7 +790,10 @@ Finalization
end.
{
$Log$
Revision 1.29 2004-01-10 17:40:25 michael
Revision 1.30 2004-01-16 20:53:33 michael
+ DirectoryExists now closes findfirst handle
Revision 1.29 2004/01/10 17:40:25 michael
+ Added Sleep() function
Revision 1.28 2004/01/05 22:56:08 florian