mirror of
				https://gitlab.com/freepascal.org/fpc/source.git
				synced 2025-10-31 21:29:41 +01:00 
			
		
		
		
	
		
			
				
	
	
		
			126 lines
		
	
	
		
			2.8 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
			
		
		
	
	
			126 lines
		
	
	
		
			2.8 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;
 | |
| 
 | |
|    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.3  2000-12-19 11:59:12  michael
 | |
|   * Fixes from Peter
 | |
| 
 | |
|   Revision 1.2  2000/07/13 11:33:58  michael
 | |
|   + removed logs
 | |
|  
 | |
| }
 | 
