paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 13:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ a lot of constants added

Browse Source
This commit is contained in:
florian 2001-08-19 09:27:51 +00:00
parent ab90785af8
commit a314a01b9d
3 changed files with 523 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

448
rtl/win32/wininc/errors.inc
View File

@ -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
}

135
rtl/win32/wininc/redef.inc
View File

@ -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
}

9
rtl/win32/wininc/struct.inc
View File

@ -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