mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-17 15:22:35 +02:00
111 lines
2.4 KiB
PHP
111 lines
2.4 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1998 by the Free Pascal development team.
|
|
|
|
Win32 Types and Constants
|
|
|
|
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
|
|
{ constants for GetStdHandle }
|
|
STD_INPUT_HANDLE = $fffffff6;
|
|
STD_OUTPUT_HANDLE = $fffffff5;
|
|
STD_ERROR_HANDLE = $fffffff4;
|
|
INVALID_HANDLE_VALUE = $ffffffff;
|
|
|
|
IGNORE = 0; { Ignore signal }
|
|
INFINITE = $FFFFFFFF; { Infinite timeout }
|
|
|
|
{ flags for CreateFile }
|
|
GENERIC_READ=$80000000;
|
|
GENERIC_WRITE=$40000000;
|
|
CREATE_NEW = 1;
|
|
CREATE_ALWAYS = 2;
|
|
OPEN_EXISTING = 3;
|
|
OPEN_ALWAYS = 4;
|
|
TRUNCATE_EXISTING = 5;
|
|
|
|
FILE_ATTRIBUTE_ARCHIVE = 32;
|
|
FILE_ATTRIBUTE_COMPRESSED = 2048;
|
|
FILE_ATTRIBUTE_NORMAL = 128;
|
|
FILE_ATTRIBUTE_DIRECTORY = 16;
|
|
FILE_ATTRIBUTE_HIDDEN = 2;
|
|
FILE_ATTRIBUTE_READONLY = 1;
|
|
FILE_ATTRIBUTE_SYSTEM = 4;
|
|
FILE_ATTRIBUTE_TEMPORARY = 256;
|
|
|
|
{ flags for SetFilePos }
|
|
FILE_BEGIN = 0;
|
|
FILE_CURRENT = 1;
|
|
FILE_END = 2;
|
|
|
|
type
|
|
UINT = longint;
|
|
BOOL = longint;
|
|
WCHAR = word;
|
|
{$ifdef UNICODE}
|
|
LPTCH = ^word;
|
|
LPTSTR = ^word;
|
|
LPCTSTR = ^word;
|
|
{$else UNICODE}
|
|
LPTCH = ^char;
|
|
LPTSTR = ^char;
|
|
LPCTSTR = ^char;
|
|
{$endif UNICODE}
|
|
PVOID = pointer;
|
|
LPVOID = pointer;
|
|
LPCVOID = pointer;
|
|
LPDWORD = ^DWORD;
|
|
THandle = longint;
|
|
HLocal = THandle;
|
|
PStr = pchar;
|
|
LPStr = pchar;
|
|
|
|
PSecurityAttributes = ^TSecurityAttributes;
|
|
TSecurityAttributes = record
|
|
nLength : DWORD;
|
|
lpSecurityDescriptor : Pointer;
|
|
bInheritHandle : Boolean;
|
|
end;
|
|
|
|
PProcessInformation = ^TProcessInformation;
|
|
TProcessInformation = record
|
|
hProcess: THandle;
|
|
hThread: THandle;
|
|
dwProcessId: DWORD;
|
|
dwThreadId: DWORD;
|
|
end;
|
|
|
|
PFileTime = ^TFileTime;
|
|
TFileTime = record
|
|
dwLowDateTime,
|
|
dwHighDateTime : DWORD;
|
|
end;
|
|
|
|
PSystemTime = ^TSystemTime;
|
|
TSystemTime = record
|
|
wYear,
|
|
wMonth,
|
|
wDayOfWeek,
|
|
wDay,
|
|
wHour,
|
|
wMinute,
|
|
wSecond,
|
|
wMilliseconds: Word;
|
|
end;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.7 1998-06-10 10:39:18 peter
|
|
* working w32 rtl
|
|
|
|
}
|