mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-21 03:58:16 +02:00
152 lines
3.5 KiB
PHP
152 lines
3.5 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 = longint($fffffff6);
|
|
STD_OUTPUT_HANDLE = longint($fffffff5);
|
|
STD_ERROR_HANDLE = longint($fffffff4);
|
|
INVALID_HANDLE_VALUE = longint($ffffffff);
|
|
|
|
IGNORE = 0; { Ignore signal }
|
|
INFINITE = longint($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;
|
|
|
|
{ GetFileType }
|
|
FILE_TYPE_UNKNOWN = 0;
|
|
FILE_TYPE_DISK = 1;
|
|
FILE_TYPE_CHAR = 2;
|
|
FILE_TYPE_PIPE = 3;
|
|
|
|
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}
|
|
LPWSTR = ^wchar;
|
|
PVOID = pointer;
|
|
LPVOID = pointer;
|
|
LPCVOID = pointer;
|
|
LPDWORD = ^DWORD;
|
|
THandle = longint;
|
|
HLocal = THandle;
|
|
PStr = pchar;
|
|
LPStr = pchar;
|
|
PLPSTR = ^LPSTR;
|
|
PLPWSTR = ^LPWSTR;
|
|
|
|
PSecurityAttributes = ^TSecurityAttributes;
|
|
TSecurityAttributes = packed record
|
|
nLength : DWORD;
|
|
lpSecurityDescriptor : Pointer;
|
|
bInheritHandle : BOOL;
|
|
end;
|
|
|
|
PProcessInformation = ^TProcessInformation;
|
|
TProcessInformation = record
|
|
hProcess: THandle;
|
|
hThread: THandle;
|
|
dwProcessId: DWORD;
|
|
dwThreadId: DWORD;
|
|
end;
|
|
|
|
PFileTime = ^TFileTime;
|
|
TFileTime = record
|
|
dwLowDateTime,
|
|
dwHighDateTime : DWORD;
|
|
end;
|
|
|
|
LPSystemTime= ^PSystemTime;
|
|
PSystemTime = ^TSystemTime;
|
|
TSystemTime = record
|
|
wYear,
|
|
wMonth,
|
|
wDayOfWeek,
|
|
wDay,
|
|
wHour,
|
|
wMinute,
|
|
wSecond,
|
|
wMilliseconds: Word;
|
|
end;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.8 2002-05-09 08:28:23 carl
|
|
* Merges from Fixes branch
|
|
|
|
Revision 1.7 2001/12/02 17:21:25 peter
|
|
* merged fixes from 1.0
|
|
|
|
Revision 1.6 2001/07/30 14:53:17 marco
|
|
* whcar now in system.
|
|
|
|
Revision 1.5 2001/05/02 10:25:23 marco
|
|
* LPSystemTime added.
|
|
|
|
Revision 1.4 2001/05/02 10:18:04 marco
|
|
* Added plpwstr, plpstr. Moved lpwstr to the system unit (though the win32
|
|
part). Delphi has it that way.
|
|
|
|
Revision 1.3 2000/12/19 11:59:12 michael
|
|
* Fixes from Peter
|
|
|
|
Revision 1.2 2000/07/13 11:33:58 michael
|
|
+ removed logs
|
|
|
|
}
|