+ a lot of constants added

rtl/win32/wininc/errors.inc

@@ -1,8 +1,9 @@
 {
     $Id$
     This file is part of the Free Pascal run time library.
-    This unit contains the record definition for the Win32 API
-    Copyright (c) 1999-2000 by Florian KLaempfl,
+    This unit contains the error code definition for the Win32 API
+
+    Copyright (c) 1999-2001 by Florian Klaempfl,
     member of the Free Pascal development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -561,6 +562,10 @@
      ERROR_PAGEFILE_QUOTA = 1454;
      ERROR_COMMITMENT_LIMIT = 1455;
      ERROR_MENU_ITEM_NOT_FOUND = 1456;
+     ERROR_INVALID_KEYBOARD_HANDLE = 1457;
+     ERROR_HOOK_TYPE_NOT_ALLOWED = 1458;
+     ERROR_REQUIRES_INTERACTIVE_WINDOWSTATION = 1459;
+     ERROR_TIMEOUT = 1460;
      ERROR_EVENTLOG_FILE_CORRUPT = 1500;
      ERROR_EVENTLOG_CANT_START = 1501;
      ERROR_LOG_FILE_FULL = 1502;
@@ -691,6 +696,8 @@
      RPC_X_INVALID_ES_ACTION = 1827;
      RPC_X_WRONG_ES_VERSION = 1828;
      RPC_X_WRONG_STUB_VERSION = 1829;
+     RPC_X_INVALID_PIPE_OBJECT = 1830;
+     RPC_X_INVALID_PIPE_OPERATION = 1831;
      RPC_S_GROUP_MEMBER_NOT_FOUND = 1898;
      EPT_S_CANT_CREATE = 1899;
      RPC_S_INVALID_OBJECT = 1900;
@@ -703,6 +710,10 @@
      ERROR_PASSWORD_MUST_CHANGE = 1907;
      ERROR_DOMAIN_CONTROLLER_NOT_FOUND = 1908;
      ERROR_ACCOUNT_LOCKED_OUT = 1909;
+     OR_INVALID_OXID = 1910;
+     OR_INVALID_OID = 1911;
+     OR_INVALID_SET = 1912;
+     RPC_S_SEND_INCOMPLETE = 1913;
      ERROR_NO_BROWSER_SERVERS_FOUND = 6118;
      ERROR_INVALID_PIXEL_FORMAT = 2000;
      ERROR_BAD_DRIVER = 2001;
@@ -717,6 +728,11 @@
      ERROR_SPL_NO_ADDJOB = 3004;
      ERROR_PRINT_PROCESSOR_ALREADY_INSTALLED = 3005;
      ERROR_PRINT_MONITOR_ALREADY_INSTALLED = 3006;
+     ERROR_INVALID_PRINT_MONITOR = 3007;
+     ERROR_PRINT_MONITOR_IN_USE = 3008;
+     ERROR_PRINTER_HAS_JOBS_QUEUED = 3009;
+     ERROR_SUCCESS_REBOOT_REQUIRED = 3010;
+     ERROR_SUCCESS_RESTART_REQUIRED = 3011;
      ERROR_WINS_INTERNAL = 4000;
      ERROR_CAN_NOT_DEL_LOCAL_WINS = 4001;
      ERROR_STATIC_INIT = 4002;
@@ -726,11 +742,433 @@
      ERROR_RPL_NOT_ALLOWED = 4006;
      {ERROR_NO_BROWSER_SERVERS_FOUND = 6118; already above }
 
+     E_UNEXPECTED = DWORD($8000FFFF);
+     E_NOTIMPL = DWORD($80004001);
+     E_OUTOFMEMORY = DWORD($8007000E);
+     E_INVALIDARG = DWORD($80070057);
+     E_NOINTERFACE = DWORD($80004002);
+     E_POINTER = DWORD($80004003);
+     E_HANDLE = DWORD($80070006);
+     E_ABORT = DWORD($80004004);
+     E_FAIL = DWORD($80004005);
+     E_ACCESSDENIED = DWORD($80070005);
+     E_PENDING = DWORD($8000000A);
+     CO_E_INIT_TLS = DWORD($80004006);
+     CO_E_INIT_SHARED_ALLOCATOR = DWORD($80004007);
+     CO_E_INIT_MEMORY_ALLOCATOR = DWORD($80004008);
+     CO_E_INIT_CLASS_CACHE = DWORD($80004009);
+     CO_E_INIT_RPC_CHANNEL = DWORD($8000400A);
+     CO_E_INIT_TLS_SET_CHANNEL_CONTROL = DWORD($8000400B);
+     CO_E_INIT_TLS_CHANNEL_CONTROL = DWORD($8000400C);
+     CO_E_INIT_UNACCEPTED_USER_ALLOCATOR = DWORD($8000400D);
+     CO_E_INIT_SCM_MUTEX_EXISTS = DWORD($8000400E);
+     CO_E_INIT_SCM_FILE_MAPPING_EXISTS = DWORD($8000400F);
+     CO_E_INIT_SCM_MAP_VIEW_OF_FILE = DWORD($80004010);
+     CO_E_INIT_SCM_EXEC_FAILURE = DWORD($80004011);
+     CO_E_INIT_ONLY_SINGLE_THREADED = DWORD($80004012);
+     CO_E_CANT_REMOTE = DWORD($80004013);
+     CO_E_BAD_SERVER_NAME = DWORD($80004014);
+     CO_E_WRONG_SERVER_IDENTITY = DWORD($80004015);
+     CO_E_OLE1DDE_DISABLED = DWORD($80004016);
+     CO_E_RUNAS_SYNTAX = DWORD($80004017);
+     CO_E_CREATEPROCESS_FAILURE = DWORD($80004018);
+     CO_E_RUNAS_CREATEPROCESS_FAILURE = DWORD($80004019);
+     CO_E_RUNAS_LOGON_FAILURE = DWORD($8000401A);
+     CO_E_LAUNCH_PERMSSION_DENIED = DWORD($8000401B);
+     CO_E_START_SERVICE_FAILURE = DWORD($8000401C);
+     CO_E_REMOTE_COMMUNICATION_FAILURE = DWORD($8000401D);
+     CO_E_SERVER_START_TIMEOUT = DWORD($8000401E);
+     CO_E_CLSREG_INCONSISTENT = DWORD($8000401F);
+     CO_E_IIDREG_INCONSISTENT = DWORD($80004020);
+     CO_E_NOT_SUPPORTED = DWORD($80004021);
+
+     CO_E_FIRST = DWORD($800401F0);
+     CO_E_LAST  = DWORD($800401FF);
+     CO_S_FIRST = $401F0;
+     CO_S_LAST = $401FF;
+     S_OK    = $00000000;
+     S_FALSE = $00000001;
+
+     CO_E_NOTINITIALIZED = DWORD($800401F0);
+     CO_E_ALREADYINITIALIZED = DWORD($800401F1);
+     CO_E_CANTDETERMINECLASS = DWORD($800401F2);
+     CO_E_CLASSSTRING = DWORD($800401F3);
+     CO_E_IIDSTRING = DWORD($800401F4);
+     CO_E_APPNOTFOUND = DWORD($800401F5);
+     CO_E_APPSINGLEUSE = DWORD($800401F6);
+     CO_E_ERRORINAPP = DWORD($800401F7);
+     CO_E_DLLNOTFOUND = DWORD($800401F8);
+     CO_E_ERRORINDLL = DWORD($800401F9);
+     CO_E_WRONGOSFORAPP = DWORD($800401FA);
+     CO_E_OBJNOTREG = DWORD($800401FB);
+     CO_E_OBJISREG = DWORD($800401FC);
+     CO_E_OBJNOTCONNECTED = DWORD($800401FD);
+     CO_E_APPDIDNTREG = DWORD($800401FE);
+     CO_E_RELEASED = DWORD($800401FF);
+
+     OLE_E_FIRST = $80040000;
+     OLE_E_LAST = $800400FF;
+     OLE_S_FIRST = $00040000;
+     OLE_S_LAST = $000400FF;
+     OLE_E_OLEVERB = $80040000;
+     OLE_E_ADVF = $80040001;
+     OLE_E_ENUM_NOMORE = $80040002;
+     OLE_E_ADVISENOTSUPPORTED = $80040003;
+     OLE_E_NOCONNECTION = $80040004;
+     OLE_E_NOTRUNNING = $80040005;
+     OLE_E_NOCACHE = $80040006;
+     OLE_E_BLANK = $80040007;
+     OLE_E_CLASSDIFF = $80040008;
+     OLE_E_CANT_GETMONIKER = $80040009;
+     OLE_E_CANT_BINDTOSOURCE = $8004000A;
+     OLE_E_STATIC = $8004000B;
+     OLE_E_PROMPTSAVECANCELLED = $8004000C;
+     OLE_E_INVALIDRECT = $8004000D;
+     OLE_E_WRONGCOMPOBJ = $8004000E;
+     OLE_E_INVALIDHWND = $8004000F;
+     OLE_E_NOT_INPLACEACTIVE = $80040010;
+     OLE_E_CANTCONVERT = $80040011;
+     OLE_E_NOSTORAGE = $80040012;
+     DV_E_FORMATETC = $80040064;
+     DV_E_DVTARGETDEVICE = $80040065;
+     DV_E_STGMEDIUM = $80040066;
+     DV_E_STATDATA = $80040067;
+     DV_E_LINDEX = $80040068;
+     DV_E_TYMED = $80040069;
+     DV_E_CLIPFORMAT = $8004006A;
+     DV_E_DVASPECT = $8004006B;
+     DV_E_DVTARGETDEVICE_SIZE = $8004006C;
+     DV_E_NOIVIEWOBJECT = $8004006D;
+     DRAGDROP_E_FIRST = $80040100;
+     DRAGDROP_E_LAST = $8004010F;
+     DRAGDROP_S_FIRST = $00040100;
+     DRAGDROP_S_LAST = $0004010F;
+     DRAGDROP_E_NOTREGISTERED = $80040100;
+     DRAGDROP_E_ALREADYREGISTERED = $80040101;
+     DRAGDROP_E_INVALIDHWND = $80040102;
+     CLASSFACTORY_E_FIRST = $80040110;
+     CLASSFACTORY_E_LAST = $8004011F;
+     CLASSFACTORY_S_FIRST = $00040110;
+     CLASSFACTORY_S_LAST = $0004011F;
+     CLASS_E_NOAGGREGATION = $80040110;
+     CLASS_E_CLASSNOTAVAILABLE = $80040111;
+     MARSHAL_E_FIRST = $80040120;
+     MARSHAL_E_LAST = $8004012F;
+     MARSHAL_S_FIRST = $00040120;
+     MARSHAL_S_LAST = $0004012F;
+     DATA_E_FIRST = $80040130;
+     DATA_E_LAST = $8004013F;
+     DATA_S_FIRST = $00040130;
+     DATA_S_LAST = $0004013F;
+     VIEW_E_FIRST = $80040140;
+     VIEW_E_LAST = $8004014F;
+     VIEW_S_FIRST = $00040140;
+     VIEW_S_LAST = $0004014F;
+     VIEW_E_DRAW = $80040140;
+     REGDB_E_FIRST = $80040150;
+     REGDB_E_LAST = $8004015F;
+     REGDB_S_FIRST = $00040150;
+     REGDB_S_LAST = $0004015F;
+     REGDB_E_READREGDB = $80040150;
+     REGDB_E_WRITEREGDB = $80040151;
+     REGDB_E_KEYMISSING = $80040152;
+     REGDB_E_INVALIDVALUE = $80040153;
+     REGDB_E_CLASSNOTREG = $80040154;
+     REGDB_E_IIDNOTREG = $80040155;
+     CACHE_E_FIRST = $80040170;
+     CACHE_E_LAST = $8004017F;
+     CACHE_S_FIRST = $00040170;
+     CACHE_S_LAST = $0004017F;
+     CACHE_E_NOCACHE_UPDATED = $80040170;
+     OLEOBJ_E_FIRST = $80040180;
+     OLEOBJ_E_LAST = $8004018F;
+     OLEOBJ_S_FIRST = $00040180;
+     OLEOBJ_S_LAST = $0004018F;
+     OLEOBJ_E_NOVERBS = $80040180;
+     OLEOBJ_E_INVALIDVERB = $80040181;
+     CLIENTSITE_E_FIRST = $80040190;
+     CLIENTSITE_E_LAST = $8004019F;
+     CLIENTSITE_S_FIRST = $00040190;
+     CLIENTSITE_S_LAST = $0004019F;
+     INPLACE_E_NOTUNDOABLE = $800401A0;
+     INPLACE_E_NOTOOLSPACE = $800401A1;
+     INPLACE_E_FIRST = $800401A0;
+     INPLACE_E_LAST = $800401AF;
+     INPLACE_S_FIRST = $000401A0;
+     INPLACE_S_LAST = $000401AF;
+     ENUM_E_FIRST = $800401B0;
+     ENUM_E_LAST = $800401BF;
+     ENUM_S_FIRST = $000401B0;
+     ENUM_S_LAST = $000401BF;
+     CONVERT10_E_FIRST = $800401C0;
+     CONVERT10_E_LAST = $800401CF;
+     CONVERT10_S_FIRST = $000401C0;
+     CONVERT10_S_LAST = $000401CF;
+     CONVERT10_E_OLESTREAM_GET = $800401C0;
+     CONVERT10_E_OLESTREAM_PUT = $800401C1;
+     CONVERT10_E_OLESTREAM_FMT = $800401C2;
+     CONVERT10_E_OLESTREAM_BITMAP_TO_DIB = $800401C3;
+     CONVERT10_E_STG_FMT = $800401C4;
+     CONVERT10_E_STG_NO_STD_STREAM = $800401C5;
+     CONVERT10_E_STG_DIB_TO_BITMAP = $800401C6;
+     CLIPBRD_E_FIRST = $800401D0;
+     CLIPBRD_E_LAST = $800401DF;
+     CLIPBRD_S_FIRST = $000401D0;
+     CLIPBRD_S_LAST = $000401DF;
+     CLIPBRD_E_CANT_OPEN = $800401D0;
+     CLIPBRD_E_CANT_EMPTY = $800401D1;
+     CLIPBRD_E_CANT_SET = $800401D2;
+     CLIPBRD_E_BAD_DATA = $800401D3;
+     CLIPBRD_E_CANT_CLOSE = $800401D4;
+     MK_E_FIRST = $800401E0;
+     MK_E_LAST = $800401EF;
+     MK_S_FIRST = $000401E0;
+     MK_S_LAST = $000401EF;
+     MK_E_CONNECTMANUALLY = $800401E0;
+     MK_E_EXCEEDEDDEADLINE = $800401E1;
+     MK_E_NEEDGENERIC = $800401E2;
+     MK_E_UNAVAILABLE = $800401E3;
+     MK_E_SYNTAX = $800401E4;
+     MK_E_NOOBJECT = $800401E5;
+     MK_E_INVALIDEXTENSION = $800401E6;
+     MK_E_INTERMEDIATEINTERFACENOTSUPPORTED = $800401E7;
+     MK_E_NOTBINDABLE = $800401E8;
+     MK_E_NOTBOUND = $800401E9;
+     MK_E_CANTOPENFILE = $800401EA;
+     MK_E_MUSTBOTHERUSER = $800401EB;
+     MK_E_NOINVERSE = $800401EC;
+     MK_E_NOSTORAGE = $800401ED;
+     MK_E_NOPREFIX = $800401EE;
+     MK_E_ENUMERATION_FAILED = $800401EF;
+     OLE_S_USEREG = $00040000;
+     OLE_S_STATIC = $00040001;
+     OLE_S_MAC_CLIPFORMAT = $00040002;
+     DRAGDROP_S_DROP = $00040100;
+     DRAGDROP_S_CANCEL = $00040101;
+     DRAGDROP_S_USEDEFAULTCURSORS = $00040102;
+     DATA_S_SAMEFORMATETC = $00040130;
+     VIEW_S_ALREADY_FROZEN = $00040140;
+     CACHE_S_FORMATETC_NOTSUPPORTED = $00040170;
+     CACHE_S_SAMECACHE = $00040171;
+     CACHE_S_SOMECACHES_NOTUPDATED = $00040172;
+     OLEOBJ_S_INVALIDVERB = $00040180;
+     OLEOBJ_S_CANNOT_DOVERB_NOW = $00040181;
+     OLEOBJ_S_INVALIDHWND = $00040182;
+     INPLACE_S_TRUNCATED = $000401A0;
+     CONVERT10_S_NO_PRESENTATION = $000401C0;
+     MK_S_REDUCED_TO_SELF = $000401E2;
+     MK_S_ME = $000401E4;
+     MK_S_HIM = $000401E5;
+     MK_S_US = $000401E6;
+     MK_S_MONIKERALREADYREGISTERED = $000401E7;
+     CO_E_CLASS_CREATE_FAILED = $80080001;
+     CO_E_SCM_ERROR = $80080002;
+     CO_E_SCM_RPC_FAILURE = $80080003;
+     CO_E_BAD_PATH = $80080004;
+     CO_E_SERVER_EXEC_FAILURE = $80080005;
+     CO_E_OBJSRV_RPC_FAILURE = $80080006;
+     MK_E_NO_NORMALIZED = $80080007;
+     CO_E_SERVER_STOPPING = $80080008;
+     MEM_E_INVALID_ROOT = $80080009;
+     MEM_E_INVALID_LINK = $80080010;
+     MEM_E_INVALID_SIZE = $80080011;
+     CO_S_NOTALLINTERFACES = $00080012;
+     DISP_E_UNKNOWNINTERFACE = $80020001;
+     DISP_E_MEMBERNOTFOUND = $80020003;
+     DISP_E_PARAMNOTFOUND = $80020004;
+     DISP_E_TYPEMISMATCH = $80020005;
+     DISP_E_UNKNOWNNAME = $80020006;
+     DISP_E_NONAMEDARGS = $80020007;
+     DISP_E_BADVARTYPE = $80020008;
+     DISP_E_EXCEPTION = $80020009;
+     DISP_E_OVERFLOW = $8002000A;
+     DISP_E_BADINDEX = $8002000B;
+     DISP_E_UNKNOWNLCID = $8002000C;
+     DISP_E_ARRAYISLOCKED = $8002000D;
+     DISP_E_BADPARAMCOUNT = $8002000E;
+     DISP_E_PARAMNOTOPTIONAL = $8002000F;
+     DISP_E_BADCALLEE = $80020010;
+     DISP_E_NOTACOLLECTION = $80020011;
+     TYPE_E_BUFFERTOOSMALL = $80028016;
+     TYPE_E_INVDATAREAD = $80028018;
+     TYPE_E_UNSUPFORMAT = $80028019;
+     TYPE_E_REGISTRYACCESS = $8002801C;
+     TYPE_E_LIBNOTREGISTERED = $8002801D;
+     TYPE_E_UNDEFINEDTYPE = $80028027;
+     TYPE_E_QUALIFIEDNAMEDISALLOWED = $80028028;
+     TYPE_E_INVALIDSTATE = $80028029;
+     TYPE_E_WRONGTYPEKIND = $8002802A;
+     TYPE_E_ELEMENTNOTFOUND = $8002802B;
+     TYPE_E_AMBIGUOUSNAME = $8002802C;
+     TYPE_E_NAMECONFLICT = $8002802D;
+     TYPE_E_UNKNOWNLCID = $8002802E;
+     TYPE_E_DLLFUNCTIONNOTFOUND = $8002802F;
+     TYPE_E_BADMODULEKIND = $800288BD;
+     TYPE_E_SIZETOOBIG = $800288C5;
+     TYPE_E_DUPLICATEID = $800288C6;
+     TYPE_E_INVALIDID = $800288CF;
+     TYPE_E_TYPEMISMATCH = $80028CA0;
+     TYPE_E_OUTOFBOUNDS = $80028CA1;
+     TYPE_E_IOERROR = $80028CA2;
+     TYPE_E_CANTCREATETMPFILE = $80028CA3;
+     TYPE_E_CANTLOADLIBRARY = $80029C4A;
+     TYPE_E_INCONSISTENTPROPFUNCS = $80029C83;
+     TYPE_E_CIRCULARTYPE = $80029C84;
+     STG_E_INVALIDFUNCTION = $80030001;
+     STG_E_FILENOTFOUND = $80030002;
+     STG_E_PATHNOTFOUND = $80030003;
+     STG_E_TOOMANYOPENFILES = $80030004;
+     STG_E_ACCESSDENIED = $80030005;
+     STG_E_INVALIDHANDLE = $80030006;
+     STG_E_INSUFFICIENTMEMORY = $80030008;
+     STG_E_INVALIDPOINTER = $80030009;
+     STG_E_NOMOREFILES = $80030012;
+     STG_E_DISKISWRITEPROTECTED = $80030013;
+     STG_E_SEEKERROR = $80030019;
+     STG_E_WRITEFAULT = $8003001D;
+     STG_E_READFAULT = $8003001E;
+     STG_E_SHAREVIOLATION = $80030020;
+     STG_E_LOCKVIOLATION = $80030021;
+     STG_E_FILEALREADYEXISTS = $80030050;
+     STG_E_INVALIDPARAMETER = $80030057;
+     STG_E_MEDIUMFULL = $80030070;
+     STG_E_PROPSETMISMATCHED = $800300F0;
+     STG_E_ABNORMALAPIEXIT = $800300FA;
+     STG_E_INVALIDHEADER = $800300FB;
+     STG_E_INVALIDNAME = $800300FC;
+     STG_E_UNKNOWN = $800300FD;
+     STG_E_UNIMPLEMENTEDFUNCTION = $800300FE;
+     STG_E_INVALIDFLAG = $800300FF;
+     STG_E_INUSE = $80030100;
+     STG_E_NOTCURRENT = $80030101;
+     STG_E_REVERTED = $80030102;
+     STG_E_CANTSAVE = $80030103;
+     STG_E_OLDFORMAT = $80030104;
+     STG_E_OLDDLL = $80030105;
+     STG_E_SHAREREQUIRED = $80030106;
+     STG_E_NOTFILEBASEDSTORAGE = $80030107;
+     STG_E_EXTANTMARSHALLINGS = $80030108;
+     STG_E_DOCFILECORRUPT = $80030109;
+     STG_E_BADBASEADDRESS = $80030110;
+     STG_E_INCOMPLETE = $80030201;
+     STG_E_TERMINATED = $80030202;
+     STG_S_CONVERTED = $00030200;
+     STG_S_BLOCK = $00030201;
+     STG_S_RETRYNOW = $00030202;
+     STG_S_MONITORING = $00030203;
+     RPC_E_CALL_REJECTED = $80010001;
+     RPC_E_CALL_CANCELED = $80010002;
+     RPC_E_CANTPOST_INSENDCALL = $80010003;
+     RPC_E_CANTCALLOUT_INASYNCCALL = $80010004;
+     RPC_E_CANTCALLOUT_INEXTERNALCALL = $80010005;
+     RPC_E_CONNECTION_TERMINATED = $80010006;
+     RPC_E_SERVER_DIED = $80010007;
+     RPC_E_CLIENT_DIED = $80010008;
+     RPC_E_INVALID_DATAPACKET = $80010009;
+     RPC_E_CANTTRANSMIT_CALL = $8001000A;
+     RPC_E_CLIENT_CANTMARSHAL_DATA = $8001000B;
+     RPC_E_CLIENT_CANTUNMARSHAL_DATA = $8001000C;
+     RPC_E_SERVER_CANTMARSHAL_DATA = $8001000D;
+     RPC_E_SERVER_CANTUNMARSHAL_DATA = $8001000E;
+     RPC_E_INVALID_DATA = $8001000F;
+     RPC_E_INVALID_PARAMETER = $80010010;
+     RPC_E_CANTCALLOUT_AGAIN = $80010011;
+     RPC_E_SERVER_DIED_DNE = $80010012;
+     RPC_E_SYS_CALL_FAILED = $80010100;
+     RPC_E_OUT_OF_RESOURCES = $80010101;
+     RPC_E_ATTEMPTED_MULTITHREAD = $80010102;
+     RPC_E_NOT_REGISTERED = $80010103;
+     RPC_E_FAULT = $80010104;
+     RPC_E_SERVERFAULT = $80010105;
+     RPC_E_CHANGED_MODE = $80010106;
+     RPC_E_INVALIDMETHOD = $80010107;
+     RPC_E_DISCONNECTED = $80010108;
+     RPC_E_RETRY = $80010109;
+     RPC_E_SERVERCALL_RETRYLATER = $8001010A;
+     RPC_E_SERVERCALL_REJECTED = $8001010B;
+     RPC_E_INVALID_CALLDATA = $8001010C;
+     RPC_E_CANTCALLOUT_ININPUTSYNCCALL = $8001010D;
+     RPC_E_WRONG_THREAD = $8001010E;
+     RPC_E_THREAD_NOT_INIT = $8001010F;
+     RPC_E_VERSION_MISMATCH = $80010110;
+     RPC_E_INVALID_HEADER = $80010111;
+     RPC_E_INVALID_EXTENSION = $80010112;
+     RPC_E_INVALID_IPID = $80010113;
+     RPC_E_INVALID_OBJECT = $80010114;
+     RPC_S_CALLPENDING = $80010115;
+     RPC_S_WAITONTIMER = $80010116;
+     RPC_E_CALL_COMPLETE = $80010117;
+     RPC_E_UNSECURE_CALL = $80010118;
+     RPC_E_TOO_LATE = $80010119;
+     RPC_E_NO_GOOD_SECURITY_PACKAGES = $8001011A;
+     RPC_E_ACCESS_DENIED = $8001011B;
+     RPC_E_REMOTE_DISABLED = $8001011C;
+     RPC_E_INVALID_OBJREF = $8001011D;
+     RPC_E_UNEXPECTED = $8001FFFF;
+     NTE_BAD_UID = $80090001;
+     NTE_BAD_HASH = $80090002;
+     NTE_BAD_KEY = $80090003;
+     NTE_BAD_LEN = $80090004;
+     NTE_BAD_DATA = $80090005;
+     NTE_BAD_SIGNATURE = $80090006;
+     NTE_BAD_VER = $80090007;
+     NTE_BAD_ALGID = $80090008;
+     NTE_BAD_FLAGS = $80090009;
+     NTE_BAD_TYPE = $8009000A;
+     NTE_BAD_KEY_STATE = $8009000B;
+     NTE_BAD_HASH_STATE = $8009000C;
+     NTE_NO_KEY = $8009000D;
+     NTE_NO_MEMORY = $8009000E;
+     NTE_EXISTS = $8009000F;
+     NTE_PERM = $80090010;
+     NTE_NOT_FOUND = $80090011;
+     NTE_DOUBLE_ENCRYPT = $80090012;
+     NTE_BAD_PROVIDER = $80090013;
+     NTE_BAD_PROV_TYPE = $80090014;
+     NTE_BAD_PUBLIC_KEY = $80090015;
+     NTE_BAD_KEYSET = $80090016;
+     NTE_PROV_TYPE_NOT_DEF = $80090017;
+     NTE_PROV_TYPE_ENTRY_BAD = $80090018;
+     NTE_KEYSET_NOT_DEF = $80090019;
+     NTE_KEYSET_ENTRY_BAD = $8009001A;
+     NTE_PROV_TYPE_NO_MATCH = $8009001B;
+     NTE_SIGNATURE_FILE_BAD = $8009001C;
+     NTE_PROVIDER_DLL_FAIL = $8009001D;
+     NTE_PROV_DLL_NOT_FOUND = $8009001E;
+     NTE_BAD_KEYSET_PARAM = $8009001F;
+     NTE_FAIL = $80090020;
+     NTE_SYS_ERR = $80090021;
+     NTE_OP_OK = 0;
+     TRUST_E_PROVIDER_UNKNOWN = $800B0001;
+     TRUST_E_ACTION_UNKNOWN = $800B0002;
+     TRUST_E_SUBJECT_FORM_UNKNOWN = $800B0003;
+     TRUST_E_SUBJECT_NOT_TRUSTED = $800B0004;
+     DIGSIG_E_ENCODE = $800B0005;
+     DIGSIG_E_DECODE = $800B0006;
+     DIGSIG_E_EXTENSIBILITY = $800B0007;
+     DIGSIG_E_CRYPTO = $800B0008;
+     PERSIST_E_SIZEDEFINITE = $800B0009;
+     PERSIST_E_SIZEINDEFINITE = $800B000A;
+     PERSIST_E_NOTSELFSIZING = $800B000B;
+     TRUST_E_NOSIGNATURE = $800B0100;
+     CERT_E_EXPIRED = $800B0101;
+     CERT_E_VALIDIYPERIODNESTING = $800B0102;
+     CERT_E_ROLE = $800B0103;
+     CERT_E_PATHLENCONST = $800B0104;
+     CERT_E_CRITICAL = $800B0105;
+     CERT_E_PURPOSE = $800B0106;
+     CERT_E_ISSUERCHAINING = $800B0107;
+     CERT_E_MALFORMED = $800B0108;
+     CERT_E_UNTRUSTEDROOT = $800B0109;
+     CERT_E_CHAINING = $800B010A;
+
 {$endif read_interface}
 
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:59  michael
-  + removed logs
- 
+  Revision 1.3  2001-08-19 09:27:51  florian
+    + a lot of constants added
+
+  Revision 1.2  2000/07/13 11:33:59  michael
+    + removed logs
 }

rtl/win32/wininc/redef.inc

@@ -1,7 +1,7 @@
 {
     $Id$
     This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by the Free Pascal development team
+    Copyright (c) 1999-2001 by the Free Pascal development team
 
     This file defines type names as they are used by Delphi
 
@@ -65,6 +65,13 @@ type
   TWinCertificate = _WIN_CERTIFICATE;
   PWinCertificate = ^TWinCertificate;
 
+  TMaxLogPalette = Packed Record
+     palVersion    : Word;
+     palNumEntries : Word;
+     palPalEntry   : array[Byte] of TPaletteEntry;
+  end;
+  PMaxLogPalette = ^TMaxLogPalette;
+
 const
   { dll names }
   advapi32 = 'advapi32.dll';
@@ -85,67 +92,21 @@ const
   fmShareDenyNone  = $40;
 
   { HRESULT codes, delphilike }
-  S_OK    = $00000000;
-  S_FALSE = $00000001;
   NOERROR = 0;
-  E_UNEXPECTED = DWORD($8000FFFF);
-  E_NOTIMPL = DWORD($80004001);
-  E_OUTOFMEMORY = DWORD($8007000E);
-  E_INVALIDARG = DWORD($80070057);
-  E_NOINTERFACE = DWORD($80004002);
-  E_POINTER = DWORD($80004003);
-  E_HANDLE = DWORD($80070006);
-  E_ABORT = DWORD($80004004);
-  E_FAIL = DWORD($80004005);
-  E_ACCESSDENIED = DWORD($80070005);
-  E_PENDING = DWORD($8000000A);
-  CO_E_INIT_TLS = DWORD($80004006);
-
-  CO_E_INIT_MEMORY_ALLOCATOR = DWORD($80004008);
-  CO_E_INIT_CLASS_CACHE = DWORD($80004009);
-  CO_E_INIT_RPC_CHANNEL = DWORD($8000400A);
-  CO_E_INIT_TLS_SET_CHANNEL_CONTROL = DWORD($8000400B);
-  CO_E_INIT_TLS_CHANNEL_CONTROL = DWORD($8000400C);
-  CO_E_INIT_UNACCEPTED_USER_ALLOCATOR = DWORD($8000400D);
-  CO_E_INIT_SCM_MUTEX_EXISTS = DWORD($8000400E);
-  CO_E_INIT_SCM_FILE_MAPPING_EXISTS = DWORD($8000400F);
-  CO_E_INIT_SCM_MAP_VIEW_OF_FILE = DWORD($80004010);
-  CO_E_INIT_SCM_EXEC_FAILURE = DWORD($80004011);
-  CO_E_INIT_ONLY_SINGLE_THREADED = DWORD($80004012);
-  CO_E_CANT_REMOTE = DWORD($80004013);
-  CO_E_BAD_SERVER_NAME = DWORD($80004014);
-  CO_E_WRONG_SERVER_IDENTITY = DWORD($80004015);
-  CO_E_OLE1DDE_DISABLED = DWORD($80004016);
-  CO_E_RUNAS_SYNTAX = DWORD($80004017);
-  CO_E_CREATEPROCESS_FAILURE = DWORD($80004018);
-  CO_E_RUNAS_CREATEPROCESS_FAILURE = DWORD($80004019);
-  CO_E_RUNAS_LOGON_FAILURE = DWORD($8000401A);
-  CO_E_LAUNCH_PERMSSION_DENIED = DWORD($8000401B);
-  CO_E_START_SERVICE_FAILURE = DWORD($8000401C);
-  CO_E_REMOTE_COMMUNICATION_FAILURE = DWORD($8000401D);
-  CO_E_SERVER_START_TIMEOUT = DWORD($8000401E);
-  CO_E_CLSREG_INCONSISTENT = DWORD($8000401F);
-  CO_E_IIDREG_INCONSISTENT = DWORD($80004020);
-  CO_E_NOT_SUPPORTED = DWORD($80004021);
-  CO_E_FIRST = DWORD($800401F0);
-  CO_E_LAST  = DWORD($800401FF);
-  CO_S_FIRST = $401F0;
-  CO_E_NOTINITIALIZED = DWORD($800401F0);
-  CO_E_ALREADYINITIALIZED = DWORD($800401F1);
-  CO_E_CANTDETERMINECLASS = DWORD($800401F2);
-  CO_E_CLASSSTRING = DWORD($800401F3);
-  CO_E_IIDSTRING = DWORD($800401F4);
-  CO_E_APPNOTFOUND = DWORD($800401F5);
-  CO_E_APPSINGLEUSE = DWORD($800401F6);
-  CO_E_ERRORINAPP = DWORD($800401F7);
-  CO_E_DLLNOTFOUND = DWORD($800401F8);
-  CO_E_ERRORINDLL = DWORD($800401F9);
-  CO_E_WRONGOSFORAPP = DWORD($800401FA);
-  CO_E_OBJNOTREG = DWORD($800401FB);
-  CO_E_OBJISREG = DWORD($800401FC);
-  CO_E_OBJNOTCONNECTED = DWORD($800401FD);
-  CO_E_APPDIDNTREG = DWORD($800401FE);
-  CO_E_RELEASED = DWORD($800401FF);
+
+const
+  { Severity values }
+  FACILITY_NT_BIT = $10000000;
+
+function Succeeded(Status : HRESULT) : BOOL;
+function Failed(Status : HRESULT) : BOOL;
+function IsError(Status : HRESULT) : BOOL;
+function HResultCode(hr : HRESULT) : Longint;
+function HResultFacility(hr : HRESULT) : Longint;
+function HResultSeverity(hr : HRESULT) : Longint;
+function MakeResult(p1,p2,mask : Longint) : HRESULT;
+function HResultFromWin32(x : Longint) : HRESULT;
+function HResultFromNT(x : Longint) : HRESULT;
 
 procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'InitializeCriticalSection';
 procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection';
@@ -889,11 +850,62 @@ function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpB
 
 {$ifdef read_implementation}
 
+function Succeeded(Status : HRESULT) : BOOL;
+  begin
+     Succeeded:=Status and HRESULT($80000000)=0;
+  end;
+
+function Failed(Status : HRESULT) : BOOL;
+  begin
+     Failed:=Status and HRESULT($80000000)<>0;
+  end;
+
+function IsError(Status : HRESULT) : BOOL;
+  begin
+     IsError:=(Status shr 31)=SEVERITY_ERROR;
+  end;
+
+function HResultCode(hr : HRESULT) : Longint;
+  begin
+     HResultCode:=hr and $0000ffff;
+  end;
+
+function HResultFacility(hr : HRESULT) : Longint;
+  begin
+     HResultFacility:=(hr shr 16) and $00001fff;
+  end;
+
+function HResultSeverity(hr : HRESULT) : Longint;
+  begin
+     HResultSeverity:=(hr shr 31) and $00000001;
+  end;
+
+function MakeResult(p1,p2,mask : Longint): HRESULT;
+  begin
+     MakeResult:=(p1 shl 31) or (p2 shl 16) or mask;
+  end;
+
+function HResultFromWin32(x : Longint) : HRESULT;
+  begin
+     HResultFromWin32:=x;
+     if HResultFromWin32<>0 then
+       HResultFromWin32:=((HResultFromWin32 and $0000ffff) or
+         (FACILITY_WIN32 shl 16) or HRESULT($80000000));
+  end;
+
+function HResultFromNT(x : Longint) : HRESULT;
+  begin
+     HResultFromNT:=x or FACILITY_NT_BIT;
+  end;
+
 {$endif read_implementation}
 
 {
   $Log$
-  Revision 1.4  2001-07-30 21:06:06  peter
+  Revision 1.5  2001-08-19 09:27:52  florian
+    + a lot of constants added
+
+  Revision 1.4  2001/07/30 21:06:06  peter
     * added SetWaitableTimer
 
   Revision 1.3  2001/07/30 12:02:51  marco
@@ -901,5 +913,4 @@ function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpB
 
   Revision 1.2  2000/07/13 11:34:00  michael
   + removed logs
-
 }

rtl/win32/wininc/struct.inc

@@ -6449,8 +6449,9 @@
      TIMAGEDOSHEADER = IMAGE_DOS_HEADER;
      PIMAGEDOSHEADER = ^IMAGE_DOS_HEADER;
 
+{$ifndef HASVARIANT}
+  { This causes trouble with a compiler which has real variant support FK }
   { Variant support }
-
   TVarType = Word;
   PVariant = ^TVariant;
 
@@ -6484,6 +6485,7 @@
   end;
 
  VARIANT = TVariant;
+{$endif HASVARIANT}
 
  MMRESULT = Longint;
 
@@ -6968,7 +6970,10 @@ type
 
 {
   $Log$
-  Revision 1.9  2001-08-04 10:25:46  peter
+  Revision 1.10  2001-08-19 09:27:52  florian
+    + a lot of constants added
+
+  Revision 1.9  2001/08/04 10:25:46  peter
     * fixed input_record to be more delphi compatible
 
   Revision 1.8  2001/07/30 14:23:15  marco