📄 mmole2.pas
字号:
VT_HRESULT = 25; { [T] }
{$IFDEF BCB} {$EXTERNALSYM VT_PTR} {$ENDIF}
VT_PTR = 26; { [T] pointer type }
{$IFDEF BCB} {$EXTERNALSYM VT_SAFEARRAY} {$ENDIF}
VT_SAFEARRAY = 27; { [T] (use VT_ARRAY in VARIANT) }
{$IFDEF BCB} {$EXTERNALSYM VT_CARRAY} {$ENDIF}
VT_CARRAY = 28; { [T] C style array }
{$IFDEF BCB} {$EXTERNALSYM VT_USERDEFINED} {$ENDIF}
VT_USERDEFINED = 29; { [T] user defined type }
{$IFDEF BCB} {$EXTERNALSYM VT_LPSTR} {$ENDIF}
VT_LPSTR = 30; { [T][P] null terminated string }
{$IFDEF BCB} {$EXTERNALSYM VT_LPWSTR} {$ENDIF}
VT_LPWSTR = 31; { [T][P] wide null terminated string }
{$IFDEF BCB} {$EXTERNALSYM VT_FILETIME} {$ENDIF}
VT_FILETIME = 64; { [P] FILETIME }
{$IFDEF BCB} {$EXTERNALSYM VT_BLOB} {$ENDIF}
VT_BLOB = 65; { [P] Length prefixed bytes }
{$IFDEF BCB} {$EXTERNALSYM VT_STREAM} {$ENDIF}
VT_STREAM = 66; { [P] Name of the stream follows }
{$IFDEF BCB} {$EXTERNALSYM VT_STORAGE} {$ENDIF}
VT_STORAGE = 67; { [P] Name of the storage follows }
{$IFDEF BCB} {$EXTERNALSYM VT_STREAMED_OBJECT} {$ENDIF}
VT_STREAMED_OBJECT = 68; { [P] Stream contains an object }
{$IFDEF BCB} {$EXTERNALSYM VT_STORED_OBJECT} {$ENDIF}
VT_STORED_OBJECT = 69; { [P] Storage contains an object }
{$IFDEF BCB} {$EXTERNALSYM VT_BLOB_OBJECT} {$ENDIF}
VT_BLOB_OBJECT = 70; { [P] Blob contains an object }
{$IFDEF BCB} {$EXTERNALSYM VT_CF} {$ENDIF}
VT_CF = 71; { [P] Clipboard format }
{$IFDEF BCB} {$EXTERNALSYM VT_CLSID} {$ENDIF}
VT_CLSID = 72; { [P] A Class ID }
{$IFDEF BCB} {$EXTERNALSYM VT_VECTOR} {$ENDIF}
VT_VECTOR = $1000; { [P] simple counted array }
{$IFDEF BCB} {$EXTERNALSYM VT_ARRAY} {$ENDIF}
VT_ARRAY = $2000; { [V] SAFEARRAY* }
{$IFDEF BCB} {$EXTERNALSYM VT_BYREF} {$ENDIF}
VT_BYREF = $4000; { [V] }
{$IFDEF BCB} {$EXTERNALSYM VT_RESERVED} {$ENDIF}
VT_RESERVED = $8000;
{$IFDEF BCB} {$EXTERNALSYM TKIND_ENUM} {$ENDIF}
TKIND_ENUM = 0;
{$IFDEF BCB} {$EXTERNALSYM TKIND_RECORD} {$ENDIF}
TKIND_RECORD = 1;
{$IFDEF BCB} {$EXTERNALSYM TKIND_MODULE} {$ENDIF}
TKIND_MODULE = 2;
{$IFDEF BCB} {$EXTERNALSYM TKIND_INTERFACE} {$ENDIF}
TKIND_INTERFACE = 3;
{$IFDEF BCB} {$EXTERNALSYM TKIND_DISPATCH} {$ENDIF}
TKIND_DISPATCH = 4;
{$IFDEF BCB} {$EXTERNALSYM TKIND_COCLASS} {$ENDIF}
TKIND_COCLASS = 5;
{$IFDEF BCB} {$EXTERNALSYM TKIND_ALIAS} {$ENDIF}
TKIND_ALIAS = 6;
{$IFDEF BCB} {$EXTERNALSYM TKIND_UNION} {$ENDIF}
TKIND_UNION = 7;
{$IFDEF BCB} {$EXTERNALSYM TKIND_MAX} {$ENDIF}
TKIND_MAX = 8;
{$IFDEF BCB} {$EXTERNALSYM CC_CDECL} {$ENDIF}
CC_CDECL = 1;
{$IFDEF BCB} {$EXTERNALSYM CC_PASCAL} {$ENDIF}
CC_PASCAL = 2;
{$IFDEF BCB} {$EXTERNALSYM CC_MACPASCAL} {$ENDIF}
CC_MACPASCAL = 3;
{$IFDEF BCB} {$EXTERNALSYM CC_STDCALL} {$ENDIF}
CC_STDCALL = 4;
{$IFDEF BCB} {$EXTERNALSYM CC_RESERVED} {$ENDIF}
CC_RESERVED = 5;
{$IFDEF BCB} {$EXTERNALSYM CC_SYSCALL} {$ENDIF}
CC_SYSCALL = 6;
{$IFDEF BCB} {$EXTERNALSYM CC_MPWCDECL} {$ENDIF}
CC_MPWCDECL = 7;
{$IFDEF BCB} {$EXTERNALSYM CC_MPWPASCAL} {$ENDIF}
CC_MPWPASCAL = 8;
{$IFDEF BCB} {$EXTERNALSYM CC_MAX} {$ENDIF}
CC_MAX = 9;
{$IFDEF BCB} {$EXTERNALSYM FUNC_VIRTUAL} {$ENDIF}
FUNC_VIRTUAL = 0;
{$IFDEF BCB} {$EXTERNALSYM FUNC_PUREVIRTUAL} {$ENDIF}
FUNC_PUREVIRTUAL = 1;
{$IFDEF BCB} {$EXTERNALSYM FUNC_NONVIRTUAL} {$ENDIF}
FUNC_NONVIRTUAL = 2;
{$IFDEF BCB} {$EXTERNALSYM FUNC_STATIC} {$ENDIF}
FUNC_STATIC = 3;
{$IFDEF BCB} {$EXTERNALSYM FUNC_DISPATCH} {$ENDIF}
FUNC_DISPATCH = 4;
{$IFDEF BCB} {$EXTERNALSYM INVOKE_FUNC} {$ENDIF}
INVOKE_FUNC = 1;
{$IFDEF BCB} {$EXTERNALSYM INVOKE_PROPERTYGET} {$ENDIF}
INVOKE_PROPERTYGET = 2;
{$IFDEF BCB} {$EXTERNALSYM INVOKE_PROPERTYPUT} {$ENDIF}
INVOKE_PROPERTYPUT = 4;
{$IFDEF BCB} {$EXTERNALSYM INVOKE_PROPERTYPUTREF} {$ENDIF}
INVOKE_PROPERTYPUTREF = 8;
{$IFDEF BCB} {$EXTERNALSYM VAR_PERINSTANCE} {$ENDIF}
VAR_PERINSTANCE = 0;
{$IFDEF BCB} {$EXTERNALSYM VAR_STATIC} {$ENDIF}
VAR_STATIC = 1;
{$IFDEF BCB} {$EXTERNALSYM VAR_CONST} {$ENDIF}
VAR_CONST = 2;
{$IFDEF BCB} {$EXTERNALSYM VAR_DISPATCH} {$ENDIF}
VAR_DISPATCH = 3;
{$IFDEF BCB} {$EXTERNALSYM IMPLTYPEFLAG_FDEFAULT} {$ENDIF}
IMPLTYPEFLAG_FDEFAULT = 1;
{$IFDEF BCB} {$EXTERNALSYM IMPLTYPEFLAG_FSOURCE} {$ENDIF}
IMPLTYPEFLAG_FSOURCE = 2;
{$IFDEF BCB} {$EXTERNALSYM IMPLTYPEFLAG_FRESTRICTED} {$ENDIF}
IMPLTYPEFLAG_FRESTRICTED = 4;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FAPPOBJECT} {$ENDIF}
TYPEFLAG_FAPPOBJECT = $0001;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FCANCREATE} {$ENDIF}
TYPEFLAG_FCANCREATE = $0002;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FLICENSED} {$ENDIF}
TYPEFLAG_FLICENSED = $0004;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FPREDECLID} {$ENDIF}
TYPEFLAG_FPREDECLID = $0008;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FHIDDEN} {$ENDIF}
TYPEFLAG_FHIDDEN = $0010;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FCONTROL} {$ENDIF}
TYPEFLAG_FCONTROL = $0020;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FDUAL} {$ENDIF}
TYPEFLAG_FDUAL = $0040;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FNONEXTENSIBLE} {$ENDIF}
TYPEFLAG_FNONEXTENSIBLE = $0080;
{$IFDEF BCB} {$EXTERNALSYM TYPEFLAG_FOLEAUTOMATION} {$ENDIF}
TYPEFLAG_FOLEAUTOMATION = $0100;
{$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FRESTRICTED} {$ENDIF}
FUNCFLAG_FRESTRICTED = $0001;
{$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FSOURCE} {$ENDIF}
FUNCFLAG_FSOURCE = $0002;
{$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FBINDABLE} {$ENDIF}
FUNCFLAG_FBINDABLE = $0004;
{$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FREQUESTEDIT} {$ENDIF}
FUNCFLAG_FREQUESTEDIT = $0008;
{$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FDISPLAYBIND} {$ENDIF}
FUNCFLAG_FDISPLAYBIND = $0010;
{$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FDEFAULTBIND} {$ENDIF}
FUNCFLAG_FDEFAULTBIND = $0020;
{$IFDEF BCB} {$EXTERNALSYM FUNCFLAG_FHIDDEN} {$ENDIF}
FUNCFLAG_FHIDDEN = $0040;
{$IFDEF BCB} {$EXTERNALSYM VARFLAG_FREADONLY} {$ENDIF}
VARFLAG_FREADONLY = $0001;
{$IFDEF BCB} {$EXTERNALSYM VARFLAG_FSOURCE} {$ENDIF}
VARFLAG_FSOURCE = $0002;
{$IFDEF BCB} {$EXTERNALSYM VARFLAG_FBINDABLE} {$ENDIF}
VARFLAG_FBINDABLE = $0004;
{$IFDEF BCB} {$EXTERNALSYM VARFLAG_FREQUESTEDIT} {$ENDIF}
VARFLAG_FREQUESTEDIT = $0008;
{$IFDEF BCB} {$EXTERNALSYM VARFLAG_FDISPLAYBIND} {$ENDIF}
VARFLAG_FDISPLAYBIND = $0010;
{$IFDEF BCB} {$EXTERNALSYM VARFLAG_FDEFAULTBIND} {$ENDIF}
VARFLAG_FDEFAULTBIND = $0020;
{$IFDEF BCB} {$EXTERNALSYM VARFLAG_FHIDDEN} {$ENDIF}
VARFLAG_FHIDDEN = $0040;
{$IFDEF BCB} {$EXTERNALSYM DISPID_VALUE} {$ENDIF}
DISPID_VALUE = 0;
{$IFDEF BCB} {$EXTERNALSYM DISPID_UNKNOWN} {$ENDIF}
DISPID_UNKNOWN = -1;
{$IFDEF BCB} {$EXTERNALSYM DISPID_PROPERTYPUT} {$ENDIF}
DISPID_PROPERTYPUT = -3;
{$IFDEF BCB} {$EXTERNALSYM DISPID_NEWENUM} {$ENDIF}
DISPID_NEWENUM = -4;
{$IFDEF BCB} {$EXTERNALSYM DISPID_EVALUATE} {$ENDIF}
DISPID_EVALUATE = -5;
{$IFDEF BCB} {$EXTERNALSYM DISPID_CONSTRUCTOR} {$ENDIF}
DISPID_CONSTRUCTOR = -6;
{$IFDEF BCB} {$EXTERNALSYM DISPID_DESTRUCTOR} {$ENDIF}
DISPID_DESTRUCTOR = -7;
{$IFDEF BCB} {$EXTERNALSYM DISPID_COLLECT} {$ENDIF}
DISPID_COLLECT = -8;
{$IFDEF BCB} {$EXTERNALSYM DESCKIND_NONE} {$ENDIF}
DESCKIND_NONE = 0;
{$IFDEF BCB} {$EXTERNALSYM DESCKIND_FUNCDESC} {$ENDIF}
DESCKIND_FUNCDESC = 1;
{$IFDEF BCB} {$EXTERNALSYM DESCKIND_VARDESC} {$ENDIF}
DESCKIND_VARDESC = 2;
{$IFDEF BCB} {$EXTERNALSYM DESCKIND_TYPECOMP} {$ENDIF}
DESCKIND_TYPECOMP = 3;
{$IFDEF BCB} {$EXTERNALSYM DESCKIND_IMPLICITAPPOBJ} {$ENDIF}
DESCKIND_IMPLICITAPPOBJ = 4;
{$IFDEF BCB} {$EXTERNALSYM DESCKIND_MAX} {$ENDIF}
DESCKIND_MAX = 5;
{$IFDEF BCB} {$EXTERNALSYM SYS_WIN16} {$ENDIF}
SYS_WIN16 = 0;
{$IFDEF BCB} {$EXTERNALSYM SYS_WIN32} {$ENDIF}
SYS_WIN32 = 1;
{$IFDEF BCB} {$EXTERNALSYM SYS_MAC} {$ENDIF}
SYS_MAC = 2;
{$IFDEF BCB} {$EXTERNALSYM LIBFLAG_FRESTRICTED} {$ENDIF}
LIBFLAG_FRESTRICTED = 1;
{$IFDEF BCB} {$EXTERNALSYM LIBFLAG_FCONTROL} {$ENDIF}
LIBFLAG_FCONTROL = 2;
{$IFDEF BCB} {$EXTERNALSYM LIBFLAG_FHIDDEN} {$ENDIF}
LIBFLAG_FHIDDEN = 4;
{$IFDEF BCB} {$EXTERNALSYM STDOLE_MAJORVERNUM} {$ENDIF}
STDOLE_MAJORVERNUM = 1;
{$IFDEF BCB} {$EXTERNALSYM STDOLE_MINORVERNUM} {$ENDIF}
STDOLE_MINORVERNUM = 0;
{$IFDEF BCB} {$EXTERNALSYM STDOLE_LCID} {$ENDIF}
STDOLE_LCID = 0;
{$IFDEF BCB} {$EXTERNALSYM VARIANT_NOVALUEPROP} {$ENDIF}
VARIANT_NOVALUEPROP = 1;
{$IFDEF BCB} {$EXTERNALSYM VAR_TIMEVALUEONLY} {$ENDIF}
VAR_TIMEVALUEONLY = 1;
{$IFDEF BCB} {$EXTERNALSYM VAR_DATEVALUEONLY} {$ENDIF}
VAR_DATEVALUEONLY = 2;
{$IFDEF BCB} {$EXTERNALSYM MEMBERID_NIL} {$ENDIF}
MEMBERID_NIL = DISPID_UNKNOWN;
{$IFDEF BCB} {$EXTERNALSYM ID_DEFAULTINST} {$ENDIF}
ID_DEFAULTINST = -2;
{$IFDEF BCB} {$EXTERNALSYM IDLFLAG_NONE} {$ENDIF}
IDLFLAG_NONE = 0;
{$IFDEF BCB} {$EXTERNALSYM IDLFLAG_FIN} {$ENDIF}
IDLFLAG_FIN = 1;
{$IFDEF BCB} {$EXTERNALSYM IDLFLAG_FOUT} {$ENDIF}
IDLFLAG_FOUT = 2;
{$IFDEF BCB} {$EXTERNALSYM IDLFLAG_FLCID} {$ENDIF}
IDLFLAG_FLCID = 4;
{$IFDEF BCB} {$EXTERNALSYM IDLFLAG_FRETVAL} {$ENDIF}
IDLFLAG_FRETVAL = 8;
{$IFDEF BCB} {$EXTERNALSYM DISPATCH_METHOD} {$ENDIF}
DISPATCH_METHOD = 1;
{$IFDEF BCB} {$EXTERNALSYM DISPATCH_PROPERTYGET} {$ENDIF}
DISPATCH_PROPERTYGET = 2;
{$IFDEF BCB} {$EXTERNALSYM DISPATCH_PROPERTYPUT} {$ENDIF}
DISPATCH_PROPERTYPUT = 4;
{$IFDEF BCB} {$EXTERNALSYM DISPATCH_PROPERTYPUTREF} {$ENDIF}
DISPATCH_PROPERTYPUTREF = 8;
{$IFDEF BCB} {$EXTERNALSYM OLEIVERB_PRIMARY} {$ENDIF}
OLEIVERB_PRIMARY = 0;
{$IFDEF BCB} {$EXTERNALSYM OLEIVERB_SHOW} {$ENDIF}
OLEIVERB_SHOW = -1;
{$IFDEF BCB} {$EXTERNALSYM OLEIVERB_OPEN} {$ENDIF}
OLEIVERB_OPEN = -2;
{$IFDEF BCB} {$EXTERNALSYM OLEIVERB_HIDE} {$ENDIF}
OLEIVERB_HIDE = -3;
{$IFDEF BCB} {$EXTERNALSYM OLEIVERB_UIACTIVATE} {$ENDIF}
OLEIVERB_UIACTIVATE = -4;
{$IFDEF BCB} {$EXTERNALSYM OLEIVERB_INPLACEACTIVATE} {$ENDIF}
OLEIVERB_INPLACEACTIVATE = -5;
{$IFDEF BCB} {$EXTERNALSYM OLEIVERB_DISCARDUNDOSTATE} {$ENDIF}
OLEIVERB_DISCARDUNDOSTATE = -6;
{$IFDEF BCB} {$EXTERNALSYM EMBDHLP_INPROC_HANDLER} {$ENDIF}
EMBDHLP_INPROC_HANDLER = $00000000;
{$IFDEF BCB} {$EXTERNALSYM EMBDHLP_INPROC_SERVER} {$ENDIF}
EMBDHLP_INPROC_SERVER = $00000001;
{$IFDEF BCB} {$EXTERNALSYM EMBDHLP_CREATENOW} {$ENDIF}
EMBDHLP_CREATENOW = $00000000;
{$IFDEF BCB} {$EXTERNALSYM EMBDHLP_DELAYCREATE} {$ENDIF}
EMBDHLP_DELAYCREATE = $00010000;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_NODATACACHE} {$ENDIF}
UPDFCACHE_NODATACACHE = 1;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ONSAVECACHE} {$ENDIF}
UPDFCACHE_ONSAVECACHE = 2;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ONSTOPCACHE} {$ENDIF}
UPDFCACHE_ONSTOPCACHE = 4;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_NORMALCACHE} {$ENDIF}
UPDFCACHE_NORMALCACHE = 8;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_IFBLANK} {$ENDIF}
UPDFCACHE_IFBLANK = $10;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ONLYIFBLANK} {$ENDIF}
UPDFCACHE_ONLYIFBLANK = $80000000;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_IFBLANKORONSAVECACHE} {$ENDIF}
UPDFCACHE_IFBLANKORONSAVECACHE = UPDFCACHE_IFBLANK or UPDFCACHE_ONSAVECACHE;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ALL} {$ENDIF}
UPDFCACHE_ALL = not UPDFCACHE_ONLYIFBLANK;
{$IFDEF BCB} {$EXTERNALSYM UPDFCACHE_ALLBUTNODATACACHE} {$ENDIF}
UPDFCACHE_ALLBUTNODATACACHE = UPDFCACHE_ALL and not UPDFCACHE_NODATACACHE;
{$IFDEF BCB} {$EXTERNALSYM DISCARDCACHE_SAVEIFDIRTY} {$ENDIF}
DISCARDCACHE_SAVEIFDIRTY = 0;
{$IFDEF BCB} {$EXTERNALSYM DISCARDCACHE_NOSAVE} {$ENDIF}
DISCARDCACHE_NOSAVE = 1;
{$IFDEF BCB} {$EXTERNALSYM OLEGETMONIKER_ONLYIFTHERE} {$ENDIF}
OLEGETMONIKER_ONLYIFTHERE = 1;
{$IFDEF BCB} {$EXTERNALSYM OLEGETMONIKER_FORCEASSIGN} {$ENDIF}
OLEGETMONIKER_FORCEASSIGN = 2;
{$IFDEF BCB} {$EXTERNALSYM OLEGETMONIKER_UNASSIGN} {$ENDIF}
OLEGETMONIKER_UNASSIGN = 3;
{$IFDEF BCB} {$EXTERNALSYM OLEGETMONIKER_TEMPFORUSER} {$ENDIF}
OLEGETMONIKER_TEMPFORUSER = 4;
{$IFDEF BCB} {$EXTERNALSYM OLEWHICHMK_CONTAINER} {$ENDIF}
OLEWHICHMK_CONTAINER = 1;
{$IFDEF BCB} {$EXTERNALSYM OLEWHICHMK_OBJREL} {$ENDIF}
OLEWHICHMK_OBJREL = 2;
{$IFDEF BCB} {$EXTERNALSYM OLEWHICHMK_OBJFULL} {$ENDIF}
OLEWHICHMK_OBJFULL = 3;
{$IFDEF BCB} {$EXTERNALSYM USERCLASSTYPE_FULL} {$ENDIF}
USERCLASSTYPE_FULL = 1;
{$IFDEF BCB} {$EXTERNALSYM USERCLASSTYPE_SHORT} {$ENDIF}
USERCLASSTYPE_SHORT = 2;
{$IFDEF BCB} {$EXTERNALSYM USERCLASSTYPE_APPNAME} {$ENDIF}
USERCLASSTYPE_APPNAME = 3;
{$IFDEF BCB} {$EXTERNALSYM OLEMISC_RECOMPOSEONRESIZE} {$ENDIF}
OLEMISC_RECOMPOSEONRESIZE = 1;
{$IFDEF BCB} {$EXTERNALSYM OLEMISC_ONLYICONIC} {$ENDIF}
OLEMISC_ONLYICONIC = 2;
{$IFDEF BCB} {$EXTERNALSYM OLEMISC_INSERTNOTREPLACE} {$ENDIF}
OLEMISC_INSERTNOTREPLACE = 4;
{$IFDEF BCB} {$EXTERNALSYM OLEMISC_STATIC} {$ENDIF}
OLEMISC_STATIC = 8;
{$IFDEF BCB} {$EXTERNALSYM OLEMISC_CANTLINKINSIDE} {$ENDIF}
OLEMISC_CANTLINKINSIDE = 16;
{$IFDEF BCB} {$EXTERNALSYM OLEMISC_CANLINKBYOLE1} {$ENDIF}
OLEMISC_CANLINKBYOLE1 = 32;
{$IFDEF BCB} {$EXTERNALSYM OLEMISC_ISLINKOBJECT} {$ENDIF}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -