mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 15:50:29 +02:00
22d1a8bbab
* fix DirectoryExists which didn't yet work without System privileges * fix FileExists which didn't use the correct access flags + implement FindFirst/FindNext/FindClose which is conceptually based on the Find-mechanism of the Unix RTL as for the object hierarchy I can't use the same mechanism that Windows provides for filesystems (the function NtQueryDirectoryFile provides the possibility to pass a pattern, but I'm not using that functionality; maybe I'll update FindNext in the future to use this for speed up...). Note: The PChar "workaround" is needed, because string reallocation does currently not work... (maybe Reallocmem is buggy) - remove FindMatch which is only provided by Windows SysUtils and DOS units + add functions/constants/types which are used by Find* to the NDK includes - remove "packed" from file information types (Windows 7 didn't like the size otherwise) git-svn-id: trunk@21438 -
32 lines
1.1 KiB
PHP
32 lines
1.1 KiB
PHP
{%MainUnit ndk.pas}
|
|
{
|
|
Native Development Kit for Native NT
|
|
|
|
This file is part of the Free Pascal run time library.
|
|
This units contains the status codes used by NT
|
|
Copyright (c) 2010 by Sven Barth
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
const
|
|
STATUS_SUCCESS = NTSTATUS($00000000);
|
|
|
|
STATUS_PENDING = NTSTATUS($00000103);
|
|
|
|
STATUS_NO_MORE_FILES = NTSTATUS($80000006);
|
|
STATUS_NO_MORE_ENTRIES = NTSTATUS($8000001A);
|
|
|
|
STATUS_INVALID_HANDLE = NTSTATUS($C0000008);
|
|
STATUS_INVALID_PARAMETER = NTSTATUS($C000000D);
|
|
STATUS_OBJECT_TYPE_MISMATCH = NTSTATUS($C0000024);
|
|
STATUS_OBJECT_NAME_COLLISION = NTSTATUS($C0000035);
|
|
|
|
|