fpc/rtl/win32/win32.inc

132 lines
2.9 KiB
PHP

{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 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;
{ Share mode open }
fmShareCompat = $00000000;
fmShareExclusive = $10;
fmShareDenyWrite = $20;
fmShareDenyRead = $30;
fmShareDenyNone = $40;
{ flags for SetFilePos }
FILE_BEGIN = 0;
FILE_CURRENT = 1;
FILE_END = 2;
VER_PLATFORM_WIN32s = 0;
VER_PLATFORM_WIN32_WINDOWS = 1;
VER_PLATFORM_WIN32_NT = 2;
type
{UINT = longint;
BOOL = longint; obsolete }
UINT = cardinal;
BOOL = longbool;
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.12 2000-05-08 13:25:34 peter
* defined filemode constants in windows unit
Revision 1.11 2000/02/09 16:59:34 peter
* truncated log
Revision 1.10 2000/01/25 13:15:35 florian
* new constants to compile dos unit again
Revision 1.9 2000/01/07 16:41:53 daniel
* copyright 2000
}