Win/Mod/OleAut.odc

MODULE WinOleAut ["OLEAUT32.dll"];
(**
	project	= "BlackBox"
	organization	= "www.oberon.ch"
	contributors	= "Oberon microsystems"
	version	= "System/Rsrc/About"
	copyright	= "System/Rsrc/About"
	license	= "Docu/BB-License"
	changes	= "
	- YYYYMMDD, nn, ...
	"
	issues	= "
	- ...
	"

**)

	IMPORT COM, WinOle, WinApi;

	CONST (* macros *)
		STDOLE_MAJORVERNUM* = 1;
		STDOLE_MINORVERNUM* = 0;
		STDOLE_LCID* = 0;
		STDOLE2_MAJORVERNUM* = 2;
		STDOLE2_MINORVERNUM* = 0;
		STDOLE2_LCID* = 0;
		FADF_AUTO* = 1;
		FADF_STATIC* = 2;
		FADF_EMBEDDED* = 4;
		FADF_FIXEDSIZE* = 16;
		FADF_BSTR* = 256;
		FADF_UNKNOWN* = 512;
		FADF_DISPATCH* = 1024;
		FADF_VARIANT* = 2048;
		FADF_RESERVED* = 61672;
		PARAMFLAG_NONE* = 0;
		PARAMFLAG_FIN* = 1;
		PARAMFLAG_FOUT* = 2;
		PARAMFLAG_FLCID* = 4;
		PARAMFLAG_FRETVAL* = 8;
		PARAMFLAG_FOPT* = 16;
		PARAMFLAG_FHASDEFAULT* = 32;
		IDLFLAG_NONE* = 0;
		IDLFLAG_FIN* = 1;
		IDLFLAG_FOUT* = 2;
		IDLFLAG_FLCID* = 4;
		IDLFLAG_FRETVAL* = 8;
		IMPLTYPEFLAG_FDEFAULT* = {0};
		IMPLTYPEFLAG_FSOURCE* = {1};
		IMPLTYPEFLAG_FRESTRICTED* = {2};
		IMPLTYPEFLAG_FDEFAULTVTABLE* = {3};
		DISPID_UNKNOWN* = -1;
		DISPID_VALUE* = 0;
		DISPID_PROPERTYPUT* = -3;
		DISPID_NEWENUM* = -4;
		DISPID_EVALUATE* = -5;
		DISPID_CONSTRUCTOR* = -6;
		DISPID_DESTRUCTOR* = -7;
		DISPID_COLLECT* = -8;
		DISPID_Name* = -800;
		DISPID_Delete* = -801;
		DISPID_Object* = -802;
		DISPID_Parent* = -803;
		VARIANT_NOVALUEPROP* = 1;
		VARIANT_ALPHABOOL* = 2;
		VAR_TIMEVALUEONLY* = 1;
		VAR_DATEVALUEONLY* = 2;
		NUMPRS_LEADING_WHITE* = {0};
		NUMPRS_TRAILING_WHITE* = {1};
		NUMPRS_LEADING_PLUS* = {2};
		NUMPRS_TRAILING_PLUS* = {3};
		NUMPRS_LEADING_MINUS* = {4};
		NUMPRS_TRAILING_MINUS* = {5};
		NUMPRS_HEX_OCT* = {6};
		NUMPRS_PARENS* = {7};
		NUMPRS_DECIMAL* = {8};
		NUMPRS_THOUSANDS* = {9};
		NUMPRS_CURRENCY* = {10};
		NUMPRS_EXPONENT* = {11};
		NUMPRS_USE_ALL* = {12};
		NUMPRS_STD* = {0..12};
		NUMPRS_NEG* = {16};
		NUMPRS_INEXACT* = {17};
		VTBIT_I1* = {16};
		VTBIT_UI1* = {17};
		VTBIT_I2* = {2};
		VTBIT_UI2* = {18};
		VTBIT_I4* = {3};
		VTBIT_UI4* = {19};
		VTBIT_R4* = {4};
		VTBIT_R8* = {5};
		VTBIT_CY* = {6};
		VTBIT_DECIMAL* = {14};
		VAR_VALIDDATE* = 4;
		VAR_CALENDAR_HIJRI* = 8;
		VARIANT_CALENDAR_HIJRI* = 8;
		MEMBERID_NIL* = -1;
		ID_DEFAULTINST* = -2;
		DISPATCH_METHOD* = 1;
		DISPATCH_PROPERTYGET* = 2;
		DISPATCH_PROPERTYPUT* = 4;
		DISPATCH_PROPERTYPUTREF* = 8;
		ACTIVEOBJECT_STRONG* = 0;
		ACTIVEOBJECT_WEAK* = 1;

	CONST (* enumerations *)
		SF_ERROR* = 10;
		SF_I1* = 16;
		SF_I2* = 2;
		SF_I4* = 3;
		SF_I8* = 20;
		SF_BSTR* = 8;
		SF_UNKNOWN* = 13;
		SF_DISPATCH* = 9;
		SF_VARIANT* = 12;
		TKIND_ENUM* = 0;
		TKIND_RECORD* = 1;
		TKIND_MODULE* = 2;
		TKIND_INTERFACE* = 3;
		TKIND_DISPATCH* = 4;
		TKIND_COCLASS* = 5;
		TKIND_ALIAS* = 6;
		TKIND_UNION* = 7;
		TKIND_MAX* = 8;
		CC_CDECL* = 1;
		CC_MSCPASCAL* = 2;
		CC_PASCAL* = 2;
		CC_MACPASCAL* = 3;
		CC_STDCALL* = 4;
		CC_RESERVED* = 5;
		CC_SYSCALL* = 6;
		CC_MPWCDECL* = 7;
		CC_MPWPASCAL* = 8;
		CC_MAX* = 9;
		FUNC_VIRTUAL* = 0;
		FUNC_PUREVIRTUAL* = 1;
		FUNC_NONVIRTUAL* = 2;
		FUNC_STATIC* = 3;
		FUNC_DISPATCH* = 4;
		INVOKE_FUNC* = 1;
		INVOKE_PROPERTYGET* = 2;
		INVOKE_PROPERTYPUT* = 4;
		INVOKE_PROPERTYPUTREF* = 8;
		VAR_PERINSTANCE* = 0;
		VAR_STATIC* = 1;
		VAR_CONST* = 2;
		VAR_DISPATCH* = 3;
		TYPEFLAG_FAPPOBJECT* = 1;
		TYPEFLAG_FCANCREATE* = 2;
		TYPEFLAG_FLICENSED* = 4;
		TYPEFLAG_FPREDECLID* = 8;
		TYPEFLAG_FHIDDEN* = 16;
		TYPEFLAG_FCONTROL* = 32;
		TYPEFLAG_FDUAL* = 64;
		TYPEFLAG_FNONEXTENSIBLE* = 128;
		TYPEFLAG_FOLEAUTOMATION* = 256;
		TYPEFLAG_FRESTRICTED* = 512;
		TYPEFLAG_FAGGREGATABLE* = 1024;
		TYPEFLAG_FREPLACEABLE* = 2048;
		TYPEFLAG_FDISPATCHABLE* = 4096;
		FUNCFLAG_FRESTRICTED* = 1;
		FUNCFLAG_FSOURCE* = 2;
		FUNCFLAG_FBINDABLE* = 4;
		FUNCFLAG_FREQUESTEDIT* = 8;
		FUNCFLAG_FDISPLAYBIND* = 16;
		FUNCFLAG_FDEFAULTBIND* = 32;
		FUNCFLAG_FHIDDEN* = 64;
		FUNCFLAG_FUSESGETLASTERROR* = 128;
		FUNCFLAG_FDEFAULTCOLLELEM* = 256;
		FUNCFLAG_FUIDEFAULT* = 512;
		FUNCFLAG_FNONBROWSABLE* = 1024;
		FUNCFLAG_FREPLACEABLE* = 2048;
		FUNCFLAG_FIMMEDIATEBIND* = 4096;
		VARFLAG_FREADONLY* = 1;
		VARFLAG_FSOURCE* = 2;
		VARFLAG_FBINDABLE* = 4;
		VARFLAG_FREQUESTEDIT* = 8;
		VARFLAG_FDISPLAYBIND* = 16;
		VARFLAG_FDEFAULTBIND* = 32;
		VARFLAG_FHIDDEN* = 64;
		VARFLAG_FRESTRICTED* = 128;
		VARFLAG_FDEFAULTCOLLELEM* = 256;
		VARFLAG_FUIDEFAULT* = 512;
		VARFLAG_FNONBROWSABLE* = 1024;
		VARFLAG_FREPLACEABLE* = 2048;
		VARFLAG_FIMMEDIATEBIND* = 4096;
		DESCKIND_NONE* = 0;
		DESCKIND_FUNCDESC* = 1;
		DESCKIND_VARDESC* = 2;
		DESCKIND_TYPECOMP* = 3;
		DESCKIND_IMPLICITAPPOBJ* = 4;
		DESCKIND_MAX* = 5;
		SYS_WIN16* = 0;
		SYS_WIN32* = 1;
		SYS_MAC* = 2;
		LIBFLAG_FRESTRICTED* = 1;
		LIBFLAG_FCONTROL* = 2;
		LIBFLAG_FHIDDEN* = 4;
		CHANGEKIND_ADDMEMBER* = 0;
		CHANGEKIND_DELETEMEMBER* = 1;
		CHANGEKIND_SETNAMES* = 2;
		CHANGEKIND_SETDOCUMENTATION* = 3;
		CHANGEKIND_GENERAL* = 4;
		CHANGEKIND_MAX* = 5;
		REGKIND_DEFAULT* = 0;
		REGKIND_REGISTER* = 1;
		REGKIND_NONE* = 2;

	TYPE
		CURRENCY* = WinApi.CY;
		SAFEARR_BSTR* = RECORD [untagged]
			Size*: INTEGER;
			aBstr*: POINTER TO (*?*) ARRAY [untagged] OF WinOle.PtrFLAGGED_WORD_BLOB;
		END;
		SAFEARR_UNKNOWN* = RECORD [untagged]
			Size*: INTEGER;
			apUnknown*: POINTER TO (*?*) ARRAY [untagged] OF COM.IUnknown;
		END;
		SAFEARR_DISPATCH* = RECORD [untagged]
			Size*: INTEGER;
			apDispatch*: POINTER TO (*?*) ARRAY [untagged] OF IDispatch;
		END;
		Ptr_wireVARIANT* = POINTER TO _wireVARIANT;
		SAFEARR_VARIANT* = RECORD [untagged]
			Size*: INTEGER;
			aVariant*: POINTER TO (*?*) ARRAY [untagged] OF Ptr_wireVARIANT;
		END;
		SF_TYPE* = INTEGER;
		SAFEARRAYBOUND* = RECORD [untagged]
			cElements*: INTEGER;
			lLbound*: INTEGER;
		END;
		PtrSAFEARRAYBOUND* = POINTER TO SAFEARRAYBOUND;
		SAFEARRAYUNION* = RECORD [untagged]
			sfType*: INTEGER;
			u*: RECORD [union]
				BstrStr*: SAFEARR_BSTR;
				UnknownStr*: SAFEARR_UNKNOWN;
				DispatchStr*: SAFEARR_DISPATCH;
				VariantStr*: SAFEARR_VARIANT;
				ByteStr*: WinOle.BYTE_SIZEDARR;
				WordStr*: WinOle.WORD_SIZEDARR;
				LongStr*: WinOle.DWORD_SIZEDARR;
				HyperStr*: WinOle.HYPER_SIZEDARR;
			END;
		END;
		_wireSAFEARRAY* = RECORD [untagged]
			cDims*: SHORTINT;
			fFeatures*: SHORTINT;
			cbElements*: INTEGER;
			cLocks*: INTEGER;
			uArrayStructs*: SAFEARRAYUNION;
			rgsabound*: ARRAY [untagged] 16 OF SAFEARRAYBOUND;
		END;
		Ptr_wireSAFEARRAY* = POINTER TO _wireSAFEARRAY;
		SAFEARRAY* = RECORD [untagged]
			cDims*: SHORTINT;
			fFeatures*: SHORTINT;
			cbElements*: INTEGER;
			cLocks*: INTEGER;
			pvData*: WinApi.PtrVoid;
			rgsabound*: ARRAY [untagged] 16 OF SAFEARRAYBOUND;
		END;
		PtrSAFEARRAY* = POINTER TO SAFEARRAY;
		_VARIANT_BOOL* = WinOle.VARIANT_BOOL;
		PtrVARIANT* = POINTER TO VARIANT;
		VARIANT* = RECORD [align8]
			vt*: WinOle.VARTYPE;
			scale*: SHORTCHAR;
			sign*: SHORTCHAR;
			Hi32*: INTEGER;
			u*: RECORD [union]
				lVal*: INTEGER;
				bVal*: SHORTCHAR;
				iVal*: SHORTINT;
				fltVal*: SHORTREAL;
				dblVal*: REAL;
				boolVal*: WinOle.VARIANT_BOOL;
				bool*: _VARIANT_BOOL;
				scode*: COM.RESULT;
				cyVal*: WinApi.CY;
				date*: WinApi.DATE;
				bstrVal*: WinOle.BSTR;
				punkVal*: COM.IUnknown;
				pdispVal*: IDispatch;
				parray*: PtrSAFEARRAY;
				pbVal*: POINTER TO (*?*) ARRAY [untagged] OF SHORTCHAR;
				piVal*: POINTER TO (*?*) ARRAY [untagged] OF SHORTINT;
				plVal*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
				pfltVal*: POINTER TO (*?*) ARRAY [untagged] OF SHORTREAL;
				pdblVal*: POINTER TO (*?*) ARRAY [untagged] OF REAL;
				pboolVal*: POINTER TO (*?*) ARRAY [untagged] OF WinOle.VARIANT_BOOL;
				pbool*: POINTER TO (*?*) ARRAY [untagged] OF _VARIANT_BOOL;
				pscode*: POINTER TO (*?*) ARRAY [untagged] OF COM.RESULT;
				pcyVal*: POINTER TO (*?*) ARRAY [untagged] OF WinApi.CY;
				pdate*: POINTER TO (*?*) ARRAY [untagged] OF WinApi.DATE;
				pbstrVal*: POINTER TO (*?*) ARRAY [untagged] OF WinOle.BSTR;
				ppunkVal*: POINTER TO (*?*) ARRAY [untagged] OF COM.IUnknown;
				ppdispVal*: POINTER TO (*?*) ARRAY [untagged] OF IDispatch;
				pparray*: POINTER TO (*?*) ARRAY [untagged] OF PtrSAFEARRAY;
				pvarVal*: PtrVARIANT;
				byref*: WinApi.PtrVoid;
				cVal*: SHORTCHAR;
				uiVal*: SHORTINT;
				ulVal*: INTEGER;
				intVal*: INTEGER;
				uintVal*: INTEGER;
				pdecVal*: WinOle.PtrDECIMAL;
				pcVal*: WinApi.PtrSTR;
				puiVal*: POINTER TO (*?*) ARRAY [untagged] OF SHORTINT;
				pulVal*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
				pintVal*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
				puintVal*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
				Lo64*: LONGINT;
			END
		END;
		VARIANTARG* = VARIANT;
		PtrVARIANTARG* = PtrVARIANT;
		_wireVARIANT* = RECORD [align8]
			vt*: SHORTINT;
			wReserved1*: SHORTINT;
			wReserved2*: SHORTINT;
			wReserved3*: SHORTINT;
			u*: RECORD [union]
				lVal*: INTEGER;
				bVal*: SHORTCHAR;
				iVal*: SHORTINT;
				fltVal*: SHORTREAL;
				dblVal*: REAL;
				boolVal*: WinOle.VARIANT_BOOL;
				scode*: COM.RESULT;
				cyVal*: WinApi.CY;
				date*: WinApi.DATE;
				bstrVal*: WinOle.PtrFLAGGED_WORD_BLOB;
				punkVal*: COM.IUnknown;
				pdispVal*: IDispatch;
				parray*: Ptr_wireSAFEARRAY;
				pbVal*: POINTER TO (*?*) ARRAY [untagged] OF SHORTCHAR;
				piVal*: POINTER TO (*?*) ARRAY [untagged] OF SHORTINT;
				plVal*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
				pfltVal*: POINTER TO (*?*) ARRAY [untagged] OF SHORTREAL;
				pdblVal*: POINTER TO (*?*) ARRAY [untagged] OF REAL;
				pboolVal*: POINTER TO (*?*) ARRAY [untagged] OF WinOle.VARIANT_BOOL;
				pscode*: POINTER TO (*?*) ARRAY [untagged] OF COM.RESULT;
				pcyVal*: POINTER TO (*?*) ARRAY [untagged] OF WinApi.CY;
				pdate*: POINTER TO (*?*) ARRAY [untagged] OF WinApi.DATE;
				pbstrVal*: POINTER TO (*?*) ARRAY [untagged] OF WinOle.PtrFLAGGED_WORD_BLOB;
				ppunkVal*: POINTER TO (*?*) ARRAY [untagged] OF COM.IUnknown;
				ppdispVal*: POINTER TO (*?*) ARRAY [untagged] OF IDispatch;
				pparray*: POINTER TO (*?*) ARRAY [untagged] OF Ptr_wireSAFEARRAY;
				pvarVal*: POINTER TO (*?*) ARRAY [untagged] OF Ptr_wireVARIANT;
				byref*: WinApi.PtrVoid;
				cVal*: SHORTCHAR;
				uiVal*: SHORTINT;
				ulVal*: INTEGER;
				intVal*: INTEGER;
				uintVal*: INTEGER;
				pdecVal*: WinOle.PtrDECIMAL;
				pcVal*: WinApi.PtrSTR;
				puiVal*: POINTER TO (*?*) ARRAY [untagged] OF SHORTINT;
				pulVal*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
				pintVal*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
				puintVal*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
			END;
		END;
		DISPID* = INTEGER;
		MEMBERID* = DISPID;
		HREFTYPE* = INTEGER;
		TYPEKIND* = INTEGER;
		PtrTYPEDESC* = POINTER TO TYPEDESC;
		PtrARRAYDESC* = POINTER TO ARRAYDESC;
		TYPEDESC* = RECORD [untagged]
			u*: RECORD [union]
				lptdesc*: PtrTYPEDESC;
				lpadesc*: PtrARRAYDESC;
				hreftype*: HREFTYPE;
			END;
			vt*: WinOle.VARTYPE;
		END;
		ARRAYDESC* = RECORD [untagged]
			tdescElem*: TYPEDESC;
			cDims*: SHORTINT;
			rgbounds*: ARRAY [untagged] 16 OF SAFEARRAYBOUND;
		END;
		PARAMDESCEX* = RECORD [align8]
			cBytes*: INTEGER;
			varDefaultValue*: VARIANTARG;
		END;
		PtrPARAMDESCEX* = POINTER TO PARAMDESCEX;
		PARAMDESC* = RECORD [untagged]
			pparamdescex*: PtrPARAMDESCEX;
			wParamFlags*: SHORTINT;
		END;
		PtrPARAMDESC* = POINTER TO PARAMDESC;
		IDLDESC* = RECORD [untagged]
			dwReserved*: INTEGER;
			wIDLFlags*: SHORTINT;
		END;
		PtrIDLDESC* = POINTER TO IDLDESC;
		ELEMDESC* = RECORD [untagged]
			tdesc*: TYPEDESC;
			u*: RECORD [union]
				idldesc*: IDLDESC;
				paramdesc*: PARAMDESC;
			END;
		END;
		PtrELEMDESC* = POINTER TO ELEMDESC;
		TYPEATTR* = RECORD [untagged]
			guid*: COM.GUID;
			lcid*: WinOle.LCID;
			dwReserved*: INTEGER;
			memidConstructor*: MEMBERID;
			memidDestructor*: MEMBERID;
			lpstrSchema*: WinApi.PtrWSTR;
			cbSizeInstance*: INTEGER;
			typekind*: TYPEKIND;
			cFuncs*: SHORTINT;
			cVars*: SHORTINT;
			cImplTypes*: SHORTINT;
			cbSizeVft*: SHORTINT;
			cbAlignment*: SHORTINT;
			wTypeFlags*: SHORTINT;
			wMajorVerNum*: SHORTINT;
			wMinorVerNum*: SHORTINT;
			tdescAlias*: TYPEDESC;
			idldescType*: IDLDESC;
		END;
		PtrTYPEATTR* = POINTER TO TYPEATTR;
		_wireDISPPARAMS* = RECORD [untagged]
			rgvarg*: POINTER TO (*?*) ARRAY [untagged] OF Ptr_wireVARIANT;
			rgdispidNamedArgs*: POINTER TO (*?*) ARRAY [untagged] OF DISPID;
			cArgs*: INTEGER;
			cNamedArgs*: INTEGER;
		END;
		Ptr_wireDISPPARAMS* = POINTER TO _wireDISPPARAMS;
		DISPPARAMS* = RECORD [untagged]
			rgvarg*: POINTER TO ARRAY [untagged] OF VARIANTARG;
			rgdispidNamedArgs*: POINTER TO ARRAY [untagged] OF DISPID;
			cArgs*: INTEGER;
			cNamedArgs*: INTEGER;
		END;
		PtrDISPPARAMS* = POINTER TO DISPPARAMS;
		_wireEXCEPINFO* = RECORD [untagged]
			wCode*: SHORTINT;
			wReserved*: SHORTINT;
			bstrSource*: WinOle.BSTR;
			bstrDescription*: WinOle.BSTR;
			bstrHelpFile*: WinOle.BSTR;
			dwHelpContext*: INTEGER;
			pvReserved*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
			pfnDeferredFillIn*: POINTER TO (*?*) ARRAY [untagged] OF INTEGER;
			scode*: COM.RESULT;
		END;
		Ptr_wireEXCEPINFO* = POINTER TO _wireEXCEPINFO;
		PtrEXCEPINFO* = POINTER TO EXCEPINFO;
		EXCEPINFO* = RECORD [untagged]
			wCode*: SHORTINT;
			wReserved*: SHORTINT;
			bstrSource*: WinOle.BSTR;
			bstrDescription*: WinOle.BSTR;
			bstrHelpFile*: WinOle.BSTR;
			dwHelpContext*: INTEGER;
			pvReserved*: WinApi.PtrVoid;
			pfnDeferredFillIn*: PROCEDURE (VAR __MIDL_0012: EXCEPINFO): COM.RESULT;
			scode*: COM.RESULT;
		END;
		CALLCONV* = INTEGER;
		FUNCKIND* = INTEGER;
		INVOKEKIND* = INTEGER;
		FUNCDESC* = RECORD [untagged]
			memid*: MEMBERID;
			lprgscode*: POINTER TO (*?*) ARRAY [untagged] OF COM.RESULT;
			lprgelemdescParam*: POINTER TO ARRAY [untagged] OF ELEMDESC;
			funckind*: FUNCKIND;
			invkind*: INVOKEKIND;
			callconv*: CALLCONV;
			cParams*: SHORTINT;
			cParamsOpt*: SHORTINT;
			oVft*: SHORTINT;
			cScodes*: SHORTINT;
			elemdescFunc*: ELEMDESC;
			wFuncFlags*: SHORTINT;
		END;
		PtrFUNCDESC* = POINTER TO FUNCDESC;
		VARKIND* = INTEGER;
		VARDESC* = RECORD [untagged]
			memid*: MEMBERID;
			lpstrSchema*: WinApi.PtrWSTR;
			u*: RECORD [union]
				oInst*: INTEGER;
				lpvarValue*: PtrVARIANT;
			END;
			elemdescVar*: ELEMDESC;
			wVarFlags*: SHORTINT;
			varkind*: VARKIND;
		END;
		PtrVARDESC* = POINTER TO VARDESC;
		TYPEFLAGS* = INTEGER;
		FUNCFLAGS* = INTEGER;
		VARFLAGS* = INTEGER;
		ICreateTypeInfo* = POINTER TO ABSTRACT RECORD ["{00020405-0000-0000-C000-000000000046}"] (COM.IUnknown)
		END;
		ICreateTypeInfo2* = POINTER TO ABSTRACT RECORD ["{0002040E-0000-0000-C000-000000000046}"] (ICreateTypeInfo)
		END;
		ICreateTypeLib* = POINTER TO ABSTRACT RECORD ["{00020406-0000-0000-C000-000000000046}"] (COM.IUnknown)
		END;
		ICreateTypeLib2* = POINTER TO ABSTRACT RECORD ["{0002040F-0000-0000-C000-000000000046}"] (ICreateTypeLib)
		END;
		IDispatch* = POINTER TO ABSTRACT RECORD ["{00020400-0000-0000-C000-000000000046}"] (COM.IUnknown)
		END;
		IEnumVARIANT* = POINTER TO ABSTRACT RECORD ["{00020404-0000-0000-C000-000000000046}"] (COM.IUnknown)
		END;
		DESCKIND* = INTEGER;
		ITypeComp* = POINTER TO ABSTRACT RECORD ["{00020403-0000-0000-C000-000000000046}"] (COM.IUnknown)
		END;
		tagBINDPTR* = RECORD [union]
			lpfuncdesc*: PtrFUNCDESC;
			lpvardesc*: PtrVARDESC;
			lptcomp*: ITypeComp;
		END;
		PtrtagBINDPTR* = POINTER TO tagBINDPTR;
		BINDPTR* = tagBINDPTR;
		PtrBINDPTR* = PtrtagBINDPTR;
		ITypeInfo* = POINTER TO ABSTRACT RECORD ["{00020401-0000-0000-C000-000000000046}"] (COM.IUnknown)
		END;
		ITypeInfo2* = POINTER TO ABSTRACT RECORD ["{00020412-0000-0000-C000-000000000046}"] (ITypeInfo)
		END;
		SYSKIND* = INTEGER;
		LIBFLAGS* = INTEGER;
		TLIBATTR* = RECORD [untagged]
			guid*: COM.GUID;
			lcid*: WinOle.LCID;
			syskind*: SYSKIND;
			wMajorVerNum*: SHORTINT;
			wMinorVerNum*: SHORTINT;
			wLibFlags*: SHORTINT;
		END;
		PtrTLIBATTR* = POINTER TO TLIBATTR;
		ITypeLib* = POINTER TO ABSTRACT RECORD ["{00020402-0000-0000-C000-000000000046}"] (COM.IUnknown)
		END;
		ITypeLib2* = POINTER TO ABSTRACT RECORD ["{00020411-0000-0000-C000-000000000046}"] (ITypeLib)
		END;
		CHANGEKIND* = INTEGER;
		ITypeChangeEvents* = POINTER TO ABSTRACT RECORD ["{00020410-0000-0000-C000-000000000046}"] (COM.IUnknown)
		END;
		IErrorInfo* = POINTER TO ABSTRACT RECORD ["{1CF2B120-547D-101B-8E65-08002B2BD119}"] (COM.IUnknown)
		END;
		ICreateErrorInfo* = POINTER TO ABSTRACT RECORD ["{22F03340-547D-101B-8E65-08002B2BD119}"] (COM.IUnknown)
		END;
		ISupportErrorInfo* = POINTER TO ABSTRACT RECORD ["{DF0B3D60-548F-101B-8E65-08002B2BD119}"] (COM.IUnknown)
		END;
		NUMPARSE* = RECORD [untagged]
			cDig*: INTEGER;
			dwInFlags*: SET;
			dwOutFlags*: SET;
			cchUsed*: INTEGER;
			nBaseShift*: INTEGER;
			nPwr10*: INTEGER;
		END;
		PtrNUMPARSE* = POINTER TO NUMPARSE;
		UDATE* = RECORD [untagged]
			st*: WinApi.SYSTEMTIME;
			wDayOfYear*: SHORTINT;
		END;
		PtrUDATE* = POINTER TO UDATE;
		REGKIND* = INTEGER;
		PARAMDATA* = RECORD [untagged]
			szName*: WinApi.PtrWSTR;
			vt*: WinOle.VARTYPE;
		END;
		PtrPARAMDATA* = POINTER TO PARAMDATA;
		METHODDATA* = RECORD [untagged]
			szName*: WinApi.PtrWSTR;
			ppdata*: PtrPARAMDATA;
			dispid*: DISPID;
			iMeth*: INTEGER;
			cc*: CALLCONV;
			cArgs*: INTEGER;
			wFlags*: SHORTINT;
			vtReturn*: WinOle.VARTYPE;
		END;
		PtrMETHODDATA* = POINTER TO METHODDATA;
		INTERFACEDATA* = RECORD [untagged]
			pmethdata*: PtrMETHODDATA;
			cMembers*: INTEGER;
		END;
		PtrINTERFACEDATA* = POINTER TO INTERFACEDATA;

	PROCEDURE (this: ICreateTypeInfo) SetGuid* (IN [nil] guid: COM.GUID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetTypeFlags* (uTypeFlags: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetDocString* (pStrDoc: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetHelpContext* (dwHelpContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetVersion* (wMajorVerNum: SHORTINT; wMinorVerNum: SHORTINT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) AddRefTypeInfo* (pTInfo: ITypeInfo; VAR [nil] phRefType: HREFTYPE): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) AddFuncDesc* (index: INTEGER; IN [nil] pFuncDesc: FUNCDESC): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) AddImplType* (index: INTEGER; hRefType: HREFTYPE): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetImplTypeFlags* (index: INTEGER; implTypeFlags: SET): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetAlignment* (cbAlignment: SHORTINT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetSchema* (pStrSchema: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) AddVarDesc* (index: INTEGER; IN [nil] pVarDesc: VARDESC): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetFuncAndParamNames* (index: INTEGER; IN [nil] rgszNames: WinApi.PtrWSTR; cNames: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetVarName* (index: INTEGER; szName: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetTypeDescAlias* (IN [nil] pTDescAlias: TYPEDESC): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) DefineFuncAsDllEntry* (index: INTEGER; szDllName: WinApi.PtrWSTR; szProcName: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetFuncDocString* (index: INTEGER; szDocString: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetVarDocString* (index: INTEGER; szDocString: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetFuncHelpContext* (index: INTEGER; dwHelpContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetVarHelpContext* (index: INTEGER; dwHelpContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetMops* (index: INTEGER; bstrMops: WinOle.BSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) SetTypeIdldesc* (IN [nil] pIdlDesc: IDLDESC): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo) LayOut* (): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) DeleteFuncDesc* (index: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) DeleteFuncDescByMemId* (memid: MEMBERID; invKind: INVOKEKIND): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) DeleteVarDesc* (index: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) DeleteVarDescByMemId* (memid: MEMBERID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) DeleteImplType* (index: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) SetCustData* (IN [nil] guid: COM.GUID; IN [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) SetFuncCustData* (index: INTEGER; IN [nil] guid: COM.GUID; IN [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) SetParamCustData* (indexFunc: INTEGER; indexParam: INTEGER; IN [nil] guid: COM.GUID; IN [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) SetVarCustData* (index: INTEGER; IN [nil] guid: COM.GUID; IN [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) SetImplTypeCustData* (index: INTEGER; IN [nil] guid: COM.GUID; IN [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) SetHelpStringContext* (dwHelpStringContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) SetFuncHelpStringContext* (index: INTEGER; dwHelpStringContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeInfo2) SetVarHelpStringContext* (index: INTEGER; dwHelpStringContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) CreateTypeInfo* (szName: WinApi.PtrWSTR; tkind: TYPEKIND; OUT [nil] ppCTInfo: ICreateTypeInfo): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SetName* (szName: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SetVersion* (wMajorVerNum: SHORTINT; wMinorVerNum: SHORTINT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SetGuid* (IN [nil] guid: COM.GUID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SetDocString* (szDoc: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SetHelpFileName* (szHelpFileName: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SetHelpContext* (dwHelpContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SetLcid* (lcid: WinOle.LCID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SetLibFlags* (uLibFlags: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib) SaveAllChanges* (): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib2) DeleteTypeInfo* (szName: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib2) SetCustData* (IN [nil] guid: COM.GUID; IN [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateTypeLib2) SetHelpStringContext* (dwHelpStringContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IDispatch) GetTypeInfoCount* (OUT [nil] pctinfo: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IDispatch) GetTypeInfo* (iTInfo: INTEGER; lcid: WinOle.LCID; OUT [nil] ppTInfo: ITypeInfo): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IDispatch) GetIDsOfNames* (IN [nil] riid: COM.GUID; IN [nil] rgszNames: WinApi.PtrWSTR; cNames: INTEGER; lcid: WinOle.LCID; OUT [nil] rgDispId: DISPID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IDispatch) Invoke* (dispIdMember: DISPID; IN riid: COM.GUID; lcid: WinOle.LCID; wFlags: SHORTINT; VAR [nil] pDispParams: DISPPARAMS; OUT [nil] pVarResult: VARIANT; OUT [nil] pExcepInfo: EXCEPINFO; OUT [nil] puArgErr: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IEnumVARIANT) Next* (celt: INTEGER; OUT rgVar: ARRAY [untagged]  OF VARIANT; OUT [nil] pCeltFetched: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IEnumVARIANT) Skip* (celt: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IEnumVARIANT) Reset* (): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IEnumVARIANT) Clone* (OUT [nil] ppEnum: IEnumVARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeComp) Bind* (szName: WinApi.PtrWSTR; lHashVal: INTEGER; fFlags: SHORTINT; OUT [nil] ppTInfo: ITypeInfo; OUT [nil] pDescKind: DESCKIND; OUT [nil] pBindPtr: BINDPTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeComp) BindType* (szName: WinApi.PtrWSTR; lHashVal: INTEGER; OUT [nil] ppTInfo: ITypeInfo; OUT [nil] ppTComp: ITypeComp): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetTypeAttr* (OUT [nil] ppTypeAttr: PtrTYPEATTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetTypeComp* (OUT [nil] ppTComp: ITypeComp): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetFuncDesc* (index: INTEGER; OUT [nil] ppFuncDesc: PtrFUNCDESC): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetVarDesc* (index: INTEGER; OUT [nil] ppVarDesc: PtrVARDESC): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetNames* (memid: MEMBERID; OUT [nil] rgBstrNames: WinOle.BSTR; cMaxNames: INTEGER; OUT [nil] pcNames: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetRefTypeOfImplType* (index: INTEGER; OUT [nil] pRefType: HREFTYPE): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetImplTypeFlags* (index: INTEGER; OUT [nil] pImplTypeFlags: SET): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetIDsOfNames* (IN [nil] ppNames: WinApi.PtrWSTR; cNames: INTEGER; OUT [nil] pMemId: MEMBERID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) Invoke* (pvInstance: WinApi.PtrVoid; memid: MEMBERID; wFlags: SHORTINT; IN [nil] pDispParams: DISPPARAMS; OUT [nil] pVarResult: VARIANT; OUT [nil] pExcepInfo: EXCEPINFO; OUT [nil] puArgErr: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetDocumentation* (memid: MEMBERID; OUT [nil] pBstrName: WinOle.BSTR; OUT [nil] pBstrDocString: WinOle.BSTR; OUT [nil] pdwHelpContext: INTEGER; OUT [nil] pBstrHelpFile: WinOle.BSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetDllEntry* (memid: MEMBERID; invKind: INVOKEKIND; OUT [nil] pBstrDllName: WinOle.BSTR; OUT [nil] pBstrName: WinOle.BSTR; OUT [nil] pwOrdinal: SHORTINT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetRefTypeInfo* (hRefType: HREFTYPE; OUT [nil] ppTInfo: ITypeInfo): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) AddressOfMember* (memid: MEMBERID; invKind: INVOKEKIND; OUT [nil] ppv: WinApi.PtrVoid): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) CreateInstance* (pUnkOuter: COM.IUnknown; IN [iid] riid: COM.GUID; OUT [new] ppvObj: COM.IUnknown): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetMops* (memid: MEMBERID; OUT [nil] pBstrMops: WinOle.BSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) GetContainingTypeLib* (OUT [nil] ppTLib: ITypeLib; OUT [nil] pIndex: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) ReleaseTypeAttr* (pTypeAttr: PtrTYPEATTR), NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) ReleaseFuncDesc* (pFuncDesc: PtrFUNCDESC), NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo) ReleaseVarDesc* (pVarDesc: PtrVARDESC), NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetTypeKind* (OUT [nil] pTypeKind: TYPEKIND): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetTypeFlags* (OUT [nil] pTypeFlags: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetFuncIndexOfMemId* (memid: MEMBERID; invKind: INVOKEKIND; OUT [nil] pFuncIndex: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetVarIndexOfMemId* (memid: MEMBERID; OUT [nil] pVarIndex: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetCustData* (IN [nil] guid: COM.GUID; OUT [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetFuncCustData* (index: INTEGER; IN [nil] guid: COM.GUID; OUT [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetParamCustData* (indexFunc: INTEGER; indexParam: INTEGER; IN [nil] guid: COM.GUID; OUT [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetVarCustData* (index: INTEGER; IN [nil] guid: COM.GUID; OUT [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetImplTypeCustData* (index: INTEGER; IN [nil] guid: COM.GUID; OUT [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeInfo2) GetHelpStringContext* (memid: MEMBERID; OUT [nil] pHelpStringContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) GetTypeInfoCount* (): INTEGER, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) GetTypeInfo* (index: INTEGER; OUT [nil] ppTInfo: ITypeInfo): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) GetTypeInfoType* (index: INTEGER; OUT [nil] pTKind: TYPEKIND): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) GetTypeInfoOfGuid* (IN [nil] guid: COM.GUID; OUT [nil] ppTinfo: ITypeInfo): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) GetLibAttr* (OUT [nil] ppTLibAttr: PtrTLIBATTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) GetTypeComp* (OUT [nil] ppTComp: ITypeComp): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) GetDocumentation* (index: INTEGER; OUT [nil] pBstrName: WinOle.BSTR; OUT [nil] pBstrDocString: WinOle.BSTR; OUT [nil] pdwHelpContext: INTEGER; OUT [nil] pBstrHelpFile: WinOle.BSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) IsName* (szNameBuf: WinApi.PtrWSTR; lHashVal: INTEGER; OUT [nil] pfName: WinApi.BOOL): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) FindName* (szNameBuf: WinApi.PtrWSTR; lHashVal: INTEGER; OUT [nil] ppTInfo: ITypeInfo; OUT [nil] rgMemId: MEMBERID; VAR [nil] pcFound: SHORTINT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib) ReleaseTLibAttr* (pTLibAttr: PtrTLIBATTR), NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib2) GetCustData* (IN [nil] guid: COM.GUID; OUT [nil] pVarVal: VARIANT): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib2) GetLibStatistics* (OUT [nil] pcUniqueNames: INTEGER; OUT [nil] pcchUniqueNames: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeLib2) GetHelpStringContext* (index: INTEGER; OUT [nil] pHelpStringContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeChangeEvents) RequestTypeChange* (changeKind: CHANGEKIND; pTInfoBefore: ITypeInfo; pStrName: WinApi.PtrWSTR; OUT [nil] pfCancel: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ITypeChangeEvents) AfterTypeChange* (changeKind: CHANGEKIND; pTInfoAfter: ITypeInfo; pStrName: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IErrorInfo) GetGUID* (OUT [nil] pGUID: COM.GUID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IErrorInfo) GetSource* (OUT [nil] pBstrSource: WinOle.BSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IErrorInfo) GetDescription* (OUT [nil] pBstrDescription: WinOle.BSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IErrorInfo) GetHelpFile* (OUT [nil] pBstrHelpFile: WinOle.BSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: IErrorInfo) GetHelpContext* (OUT [nil] pdwHelpContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateErrorInfo) SetGUID* (IN [nil] rguid: COM.GUID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateErrorInfo) SetSource* (szSource: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateErrorInfo) SetDescription* (szDescription: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateErrorInfo) SetHelpFile* (szHelpFile: WinApi.PtrWSTR): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ICreateErrorInfo) SetHelpContext* (dwHelpContext: INTEGER): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE (this: ISupportErrorInfo) InterfaceSupportsErrorInfo* (IN [nil] riid: COM.GUID): COM.RESULT, NEW, ABSTRACT;

	PROCEDURE SysAllocString* (p0: WinApi.PtrWSTR): WinOle.BSTR;

	PROCEDURE SysReAllocString* (VAR [nil] p0: WinOle.BSTR; p1: WinApi.PtrWSTR): INTEGER;

	PROCEDURE SysAllocStringLen* (p0: WinApi.PtrWSTR; p1: INTEGER): WinOle.BSTR;

	PROCEDURE SysReAllocStringLen* (VAR [nil] p0: WinOle.BSTR; p1: WinApi.PtrWSTR; p2: INTEGER): INTEGER;

	PROCEDURE SysFreeString* (p0: WinOle.BSTR);

	PROCEDURE SysStringLen* (p0: WinOle.BSTR): INTEGER;

	PROCEDURE SysStringByteLen* (bstr: WinOle.BSTR): INTEGER;

	PROCEDURE SysAllocStringByteLen* (psz: WinApi.PtrSTR; len: INTEGER): WinOle.BSTR;

	PROCEDURE DosDateTimeToVariantTime* (wDosDate: SHORTINT; wDosTime: SHORTINT; VAR [nil] pvtime: REAL): INTEGER;

	PROCEDURE VariantTimeToDosDateTime* (vtime: REAL; VAR [nil] pwDosDate: SHORTINT; VAR [nil] pwDosTime: SHORTINT): INTEGER;

	PROCEDURE SafeArrayAllocDescriptor* (cDims: INTEGER; VAR [nil] ppsaOut: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayAllocData* (psa: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayCreate* (vt: WinOle.VARTYPE; cDims: INTEGER; VAR [nil] rgsabound: SAFEARRAYBOUND): PtrSAFEARRAY;

	PROCEDURE SafeArrayDestroyDescriptor* (psa: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayDestroyData* (psa: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayDestroy* (psa: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayRedim* (psa: PtrSAFEARRAY; VAR [nil] psaboundNew: SAFEARRAYBOUND): COM.RESULT;

	PROCEDURE SafeArrayGetDim* (psa: PtrSAFEARRAY): INTEGER;

	PROCEDURE SafeArrayGetElemsize* (psa: PtrSAFEARRAY): INTEGER;

	PROCEDURE SafeArrayGetUBound* (psa: PtrSAFEARRAY; nDim: INTEGER; VAR [nil] plUbound: INTEGER): COM.RESULT;

	PROCEDURE SafeArrayGetLBound* (psa: PtrSAFEARRAY; nDim: INTEGER; VAR [nil] plLbound: INTEGER): COM.RESULT;

	PROCEDURE SafeArrayLock* (psa: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayUnlock* (psa: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayAccessData* (psa: PtrSAFEARRAY; VAR [nil] ppvData: WinApi.PtrVoid): COM.RESULT;

	PROCEDURE SafeArrayUnaccessData* (psa: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayGetElement* (psa: PtrSAFEARRAY; VAR [nil] rgIndices: INTEGER; pv: WinApi.PtrVoid): COM.RESULT;

	PROCEDURE SafeArrayPutElement* (psa: PtrSAFEARRAY; VAR [nil] rgIndices: INTEGER; pv: WinApi.PtrVoid): COM.RESULT;

	PROCEDURE SafeArrayCopy* (psa: PtrSAFEARRAY; VAR [nil] ppsaOut: PtrSAFEARRAY): COM.RESULT;

	PROCEDURE SafeArrayPtrOfIndex* (psa: PtrSAFEARRAY; VAR [nil] rgIndices: INTEGER; VAR [nil] ppvData: WinApi.PtrVoid): COM.RESULT;

	PROCEDURE VariantInit* (VAR [nil] pvarg: VARIANTARG);

	PROCEDURE VariantClear* (VAR [nil] pvarg: VARIANTARG): COM.RESULT;

	PROCEDURE VariantCopy* (VAR [nil] pvargDest: VARIANTARG; VAR [nil] pvargSrc: VARIANTARG): COM.RESULT;

	PROCEDURE VariantCopyInd* (VAR [nil] pvarDest: VARIANT; VAR [nil] pvargSrc: VARIANTARG): COM.RESULT;

	PROCEDURE VariantChangeType* (VAR [nil] pvargDest: VARIANTARG; VAR [nil] pvarSrc: VARIANTARG; wFlags: SHORTINT; vt: WinOle.VARTYPE): COM.RESULT;

	PROCEDURE VariantChangeTypeEx* (VAR [nil] pvargDest: VARIANTARG; VAR [nil] pvarSrc: VARIANTARG; lcid: WinOle.LCID; wFlags: SHORTINT; vt: WinOle.VARTYPE): COM.RESULT;

	PROCEDURE VarUI1FromI2* (sIn: SHORTINT; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarUI1FromI4* (lIn: INTEGER; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarUI1FromR4* (fltIn: SHORTREAL; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarUI1FromR8* (dblIn: REAL; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarUI1FromCy* (cyIn: WinApi.CY; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarUI1FromDate* (dateIn: WinApi.DATE; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarUI1FromStr* (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarUI1FromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarUI1FromBool* (boolIn: WinOle.VARIANT_BOOL; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarI2FromUI1* (bIn: SHORTCHAR; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI2FromI4* (lIn: INTEGER; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI2FromR4* (fltIn: SHORTREAL; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI2FromR8* (dblIn: REAL; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI2FromCy* (cyIn: WinApi.CY; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI2FromDate* (dateIn: WinApi.DATE; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI2FromStr* (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI2FromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI2FromBool* (boolIn: WinOle.VARIANT_BOOL; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarI4FromUI1* (bIn: SHORTCHAR; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarI4FromI2* (sIn: SHORTINT; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarI4FromR4* (fltIn: SHORTREAL; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarI4FromR8* (dblIn: REAL; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarI4FromCy* (cyIn: WinApi.CY; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarI4FromDate* (dateIn: WinApi.DATE; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarI4FromStr* (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarI4FromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarI4FromBool* (boolIn: WinOle.VARIANT_BOOL; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarR4FromUI1* (bIn: SHORTCHAR; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR4FromI2* (sIn: SHORTINT; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR4FromI4* (lIn: INTEGER; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR4FromR8* (dblIn: REAL; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR4FromCy* (cyIn: WinApi.CY; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR4FromDate* (dateIn: WinApi.DATE; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR4FromStr* (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR4FromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR4FromBool* (boolIn: WinOle.VARIANT_BOOL; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR8FromUI1* (bIn: SHORTCHAR; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarR8FromI2* (sIn: SHORTINT; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarR8FromI4* (lIn: INTEGER; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarR8FromR4* (fltIn: SHORTREAL; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarR8FromCy* (cyIn: WinApi.CY; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarR8FromDate* (dateIn: WinApi.DATE; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarR8FromStr* (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarR8FromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarR8FromBool* (boolIn: WinOle.VARIANT_BOOL; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarDateFromUI1* (bIn: SHORTCHAR; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarDateFromI2* (sIn: SHORTINT; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarDateFromI4* (lIn: INTEGER; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarDateFromR4* (fltIn: SHORTREAL; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarDateFromR8* (dblIn: REAL; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarDateFromCy* (cyIn: WinApi.CY; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarDateFromStr* (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarDateFromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarDateFromBool* (boolIn: WinOle.VARIANT_BOOL; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarCyFromUI1* (bIn: SHORTCHAR; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarCyFromI2* (sIn: SHORTINT; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarCyFromI4* (lIn: INTEGER; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarCyFromR4* (fltIn: SHORTREAL; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarCyFromR8* (dblIn: REAL; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarCyFromDate* (dateIn: WinApi.DATE; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarCyFromStr* (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarCyFromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarCyFromBool* (boolIn: WinOle.VARIANT_BOOL; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarBstrFromUI1* (bVal: SHORTCHAR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBstrFromI2* (iVal: SHORTINT; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBstrFromI4* (lIn: INTEGER; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBstrFromR4* (fltIn: SHORTREAL; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBstrFromR8* (dblIn: REAL; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBstrFromCy* (cyIn: WinApi.CY; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBstrFromDate* (dateIn: WinApi.DATE; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBstrFromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBstrFromBool* (boolIn: WinOle.VARIANT_BOOL; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBoolFromUI1* (bIn: SHORTCHAR; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarBoolFromI2* (sIn: SHORTINT; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarBoolFromI4* (lIn: INTEGER; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarBoolFromR4* (fltIn: SHORTREAL; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarBoolFromR8* (dblIn: REAL; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarBoolFromDate* (dateIn: WinApi.DATE; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarBoolFromCy* (cyIn: WinApi.CY; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarBoolFromStr* (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarBoolFromDisp* (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarUI1FromInt* ["VarUI1FromI4"] (lIn: INTEGER; VAR [nil] pbOut: SHORTCHAR): COM.RESULT;

	PROCEDURE VarI2FromInt* ["VarI2FromI4"] (lIn: INTEGER; VAR [nil] psOut: SHORTINT): COM.RESULT;

	PROCEDURE VarR4FromInt* ["VarR4FromI4"] (lIn: INTEGER; VAR [nil] pfltOut: SHORTREAL): COM.RESULT;

	PROCEDURE VarR8FromInt* ["VarR8FromI4"] (lIn: INTEGER; VAR [nil] pdblOut: REAL): COM.RESULT;

	PROCEDURE VarDateFromInt* ["VarDateFromI4"] (lIn: INTEGER; VAR [nil] pdateOut: WinApi.DATE): COM.RESULT;

	PROCEDURE VarCyFromInt* ["VarCyFromI4"] (lIn: INTEGER; VAR [nil] pcyOut: WinApi.CY): COM.RESULT;

	PROCEDURE VarBstrFromInt* ["VarBstrFromI4"] (lIn: INTEGER; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] pbstrOut: WinOle.BSTR): COM.RESULT;

	PROCEDURE VarBoolFromInt* ["VarBoolFromI4"] (lIn: INTEGER; VAR [nil] pboolOut: WinOle.VARIANT_BOOL): COM.RESULT;

	PROCEDURE VarIntFromUI1* ["VarI4FromUI1"] (bIn: SHORTCHAR; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarIntFromI2* ["VarI4FromI2"] (sIn: SHORTINT; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarIntFromR4* ["VarI4FromR4"] (fltIn: SHORTREAL; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarIntFromR8* ["VarI4FromR8"] (dblIn: REAL; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarIntFromDate* ["VarI4FromDate"] (dateIn: WinApi.DATE; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarIntFromCy* ["VarI4FromCy"] (cyIn: WinApi.CY; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarIntFromStr* ["VarI4FromStr"] (strIn: WinApi.PtrWSTR; lcid: WinOle.LCID; dwFlags: SET; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarIntFromDisp* ["VarI4FromDisp"] (pdispIn: IDispatch; lcid: WinOle.LCID; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE VarIntFromBool* ["VarI4FromBool"] (boolIn: WinOle.VARIANT_BOOL; VAR [nil] plOut: INTEGER): COM.RESULT;

	PROCEDURE LHashValOfNameSysA* (syskind: SYSKIND; lcid: WinOle.LCID; szName: WinApi.PtrSTR): INTEGER;

	PROCEDURE LHashValOfNameSys* (syskind: SYSKIND; lcid: WinOle.LCID; szName: WinApi.PtrWSTR): INTEGER;

	PROCEDURE LoadTypeLib* (szFile: WinApi.PtrWSTR; VAR [nil] pptlib: ITypeLib): COM.RESULT;

	PROCEDURE LoadRegTypeLib* (IN [nil] rguid: COM.GUID; wVerMajor: SHORTINT; wVerMinor: SHORTINT; lcid: WinOle.LCID; VAR [nil] pptlib: ITypeLib): COM.RESULT;

	PROCEDURE QueryPathOfRegTypeLib* (IN [nil] guid: COM.GUID; wMaj: SHORTINT; wMin: SHORTINT; lcid: WinOle.LCID; VAR [nil] lpbstrPathName: WinOle.BSTR): COM.RESULT;

	PROCEDURE RegisterTypeLib* (ptlib: ITypeLib; szFullPath: WinApi.PtrWSTR; szHelpDir: WinApi.PtrWSTR): COM.RESULT;

	PROCEDURE CreateTypeLib* (syskind: SYSKIND; szFile: WinApi.PtrWSTR; VAR [nil] ppctlib: ICreateTypeLib): COM.RESULT;

	PROCEDURE DispGetParam* (VAR [nil] pdispparams: DISPPARAMS; position: INTEGER; vtTarg: WinOle.VARTYPE; VAR [nil] pvarResult: VARIANT; VAR [nil] puArgErr: INTEGER): COM.RESULT;

	PROCEDURE DispGetIDsOfNames* (ptinfo: ITypeInfo; VAR [nil] rgszNames: WinApi.PtrWSTR; cNames: INTEGER; VAR [nil] rgdispid: DISPID): COM.RESULT;

	PROCEDURE DispInvoke* (_this: WinApi.PtrVoid; ptinfo: ITypeInfo; dispidMember: DISPID; wFlags: SHORTINT; VAR [nil] pparams: DISPPARAMS; VAR [nil] pvarResult: VARIANT; VAR [nil] pexcepinfo: EXCEPINFO; VAR [nil] puArgErr: INTEGER): COM.RESULT;

	PROCEDURE CreateDispTypeInfo* (VAR [nil] pidata: INTERFACEDATA; lcid: WinOle.LCID; VAR [nil] pptinfo: ITypeInfo): COM.RESULT;

	PROCEDURE CreateStdDispatch* (punkOuter: COM.IUnknown; pvThis: WinApi.PtrVoid; ptinfo: ITypeInfo; VAR [nil] ppunkStdDisp: COM.IUnknown): COM.RESULT;

	PROCEDURE RegisterActiveObject* (punk: COM.IUnknown; IN [nil] rclsid: COM.GUID; dwFlags: SET; VAR [nil] pdwRegister: INTEGER): COM.RESULT;

	PROCEDURE RevokeActiveObject* (dwRegister: INTEGER; pvReserved: WinApi.PtrVoid): COM.RESULT;

	PROCEDURE GetActiveObject* (IN [nil] rclsid: COM.GUID; pvReserved: WinApi.PtrVoid; VAR [nil] ppunk: COM.IUnknown): COM.RESULT;

	PROCEDURE SetErrorInfo* (dwReserved: INTEGER; perrinfo: IErrorInfo): COM.RESULT;

	PROCEDURE GetErrorInfo* (dwReserved: INTEGER; VAR [nil] pperrinfo: IErrorInfo): COM.RESULT;

	PROCEDURE CreateErrorInfo* (VAR [nil] pperrinfo: ICreateErrorInfo): COM.RESULT;

	PROCEDURE OaBuildVersion* (): INTEGER;


	(* manually added procedures *)
	
	PROCEDURE VariantTimeToSystemTime* (variantTime: REAL; VAR [nil] systemTime: WinApi.SYSTEMTIME): INTEGER;

	PROCEDURE SystemTimeToVariantTime* (VAR [nil] systemTime: WinApi.SYSTEMTIME; VAR [nil] variantTime: REAL): INTEGER;
	
END WinOleAut.