/*
 * stdole32.tlb generator
 *
 * Copyright (C) 2003, 2004  Huw Davies
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */

#include <windows.h>
#include <stdio.h>

int WINAPI WinMain(HINSTANCE hinst, HINSTANCE hprevinst,LPSTR lpCmdLine,int nShowCmd)
{
	HRESULT hres;
	ICreateTypeLib *pCTL;
	ICreateTypeInfo *pCTI;
	VARDESC vdesc;
	FUNCDESC fdesc;
	char buf[100];
	ITypeInfo *pGUIDTI, *pIUnknownTI, *pDISPPARAMSTI, *pEXCEPINFOTI, *pIEnumVARIANTTI;
	ARRAYDESC adesc;
	TYPEDESC tdesc, tdesc2, tdesc3, tdesc4, tdesc5;
	ELEMDESC edesc[8]; /* 8's enough for IDispatch::Invoke */
	OLECHAR *olestr[9];/* 9's   "     "       "        "   */
	GUID GUID_Library = {0x00020430,0,0,{0xc0,0,0,0,0,0,0,0x46}};
	HREFTYPE hrefGUID, hrefIUnknown, hrefDISPPARAMS, hrefEXCEPINFO, hrefIEnumVARIANT;
	OleInitialize(NULL);

	hres = CreateTypeLib(SYS_WIN32,L"stdole32.tlb",&pCTL);
	if(!SUCCEEDED(hres)) MessageBox(0,"CreateTypeLib2 failed", "err", MB_OK);


	pCTL->lpVtbl->SetName(pCTL,L"stdole");
	pCTL->lpVtbl->SetVersion(pCTL,1,0);
	pCTL->lpVtbl->SetDocString(pCTL,L"OLE Automation");
	pCTL->lpVtbl->SetGuid(pCTL,&GUID_Library);
	pCTL->lpVtbl->SetLcid(pCTL,0);
	pCTL->lpVtbl->SetLibFlags(pCTL,LIBFLAG_FRESTRICTED);

	
	/* struct GUID */
	hres = pCTL->lpVtbl->CreateTypeInfo(pCTL, L"GUID",TKIND_RECORD,&pCTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"CreateTypeInfo failed", "err", MB_OK);
	/* unsigned long Data1 */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000000;
	vdesc.elemdescVar.tdesc.vt = VT_UI4;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,0,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,0,L"Data1");
	/* unsigned short Data2 */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000001;
	vdesc.elemdescVar.tdesc.vt = VT_UI2;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,1,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	hres = pCTI->lpVtbl->SetVarName(pCTI,1,L"Data2");
	if(!SUCCEEDED(hres)) MessageBox(0,"SetVarName failed", "err", MB_OK);
	/* unsigned short Data3 */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000002;
	vdesc.elemdescVar.tdesc.vt = VT_UI2;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,2,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,2,L"Data3");
	/* unsigned char Data4[8] */
	memset(&vdesc, 0, sizeof(vdesc));
	memset(&adesc, 0, sizeof(adesc));
	vdesc.memid = 0x40000003;
	vdesc.elemdescVar.tdesc.vt = VT_CARRAY;
	vdesc.elemdescVar.tdesc.lpadesc = &adesc;
	vdesc.elemdescVar.tdesc.lpadesc->cDims = 1;
	vdesc.elemdescVar.tdesc.lpadesc->tdescElem.vt = VT_UI1;
	vdesc.elemdescVar.tdesc.lpadesc->rgbounds[0].cElements = 8;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,3,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,3,L"Data4");
	hres =pCTI->lpVtbl->LayOut(pCTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"guid layout failed", "err", MB_OK);
	hres = pCTI->lpVtbl->QueryInterface(pCTI,&IID_ITypeInfo,(void**)&pGUIDTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"qi typeinfo guid failed", "err", MB_OK);
	pCTI->lpVtbl->Release(pCTI);
	


	
	/* DISPPARMS */
	hres = pCTL->lpVtbl->CreateTypeInfo(pCTL, L"DISPPARAMS",TKIND_RECORD,&pCTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"CreateTypeInfo failed", "err", MB_OK);
	/* VARIANT *rgvarg */
	memset(&vdesc, 0, sizeof(vdesc));
	memset(&tdesc, 0, sizeof(tdesc));
	vdesc.memid = 0x40000000;
	vdesc.elemdescVar.tdesc.vt = VT_PTR;
	vdesc.elemdescVar.tdesc.lptdesc = &tdesc;
	vdesc.elemdescVar.tdesc.lptdesc->vt = VT_VARIANT;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,0,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,0,L"rgvarg");

	/* long *rgdispidNamedArgs */
	memset(&vdesc, 0, sizeof(vdesc));
	memset(&tdesc, 0, sizeof(tdesc));
	vdesc.memid = 0x40000001;
	vdesc.elemdescVar.tdesc.vt = VT_PTR;
	vdesc.elemdescVar.tdesc.lptdesc = &tdesc;
	vdesc.elemdescVar.tdesc.lptdesc->vt = VT_I4;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,1,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,1,L"rgdispidNamedArgs");

	/* unsigned int cArgs */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000002;
	vdesc.elemdescVar.tdesc.vt = VT_UINT;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,2,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,2,L"cArgs");
	
	/* unsigned int cNamedArgs */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000003;
	vdesc.elemdescVar.tdesc.vt = VT_UINT;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,3,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,3,L"cNamedArgs");
	pCTI->lpVtbl->LayOut(pCTI);
	pCTI->lpVtbl->QueryInterface(pCTI,&IID_ITypeInfo,(void**)&pDISPPARAMSTI);
	pCTI->lpVtbl->Release(pCTI);


	/* EXCEPINFO */
	hres = pCTL->lpVtbl->CreateTypeInfo(pCTL, L"EXCEPINFO",TKIND_RECORD,&pCTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"CreateTypeInfo failed", "err", MB_OK);
	/* unsigned short wCode */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000000;
	vdesc.elemdescVar.tdesc.vt = VT_UI2;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,0,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,0,L"wCode");

	/* unsigned short wReserved */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000001;
	vdesc.elemdescVar.tdesc.vt = VT_UI2;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,1,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,1,L"wReserved");
	
	/* BSTR bstrSource */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000002;
	vdesc.elemdescVar.tdesc.vt = VT_BSTR;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,2,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,2,L"bstrSource");
	
	/* BSTR bstrDescription */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000003;
	vdesc.elemdescVar.tdesc.vt = VT_BSTR;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,3,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,3,L"bstrDescription");
	
	/* BSTR bstrHelpFile */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000004;
	vdesc.elemdescVar.tdesc.vt = VT_BSTR;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,4,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,4,L"bstrHelpFile");
	
	/* unsigned long dwHelpContext */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000005;
	vdesc.elemdescVar.tdesc.vt = VT_UI4;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,5,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,5,L"dwHelpContext");

	/* void *pvReserved */
	memset(&vdesc, 0, sizeof(vdesc));
	memset(&tdesc, 0, sizeof(tdesc));
	vdesc.memid = 0x40000006;
	vdesc.elemdescVar.tdesc.vt = VT_PTR;
	vdesc.elemdescVar.tdesc.lptdesc = &tdesc;
	vdesc.elemdescVar.tdesc.lptdesc->vt = VT_VOID;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,6,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,6,L"pvReserved");

	/* void *pvDeferredFillIn */
	memset(&vdesc, 0, sizeof(vdesc));
	memset(&tdesc, 0, sizeof(tdesc));
	vdesc.memid = 0x40000007;
	vdesc.elemdescVar.tdesc.vt = VT_PTR;
	vdesc.elemdescVar.tdesc.lptdesc = &tdesc;
	vdesc.elemdescVar.tdesc.lptdesc->vt = VT_VOID;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,7,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,7,L"pvDeferredFillIn");

	/* SCODE scode */
	memset(&vdesc, 0, sizeof(vdesc));
	vdesc.memid = 0x40000008;
	vdesc.elemdescVar.tdesc.vt = VT_ERROR;
	hres = pCTI->lpVtbl->AddVarDesc(pCTI,8,&vdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddVarDesc failed", "err", MB_OK);
	pCTI->lpVtbl->SetVarName(pCTI,8,L"scode");

	pCTI->lpVtbl->LayOut(pCTI);
	pCTI->lpVtbl->QueryInterface(pCTI,&IID_ITypeInfo,(void**)&pEXCEPINFOTI);
	pCTI->lpVtbl->Release(pCTI);


	/* IUnknown */
	hres = pCTL->lpVtbl->CreateTypeInfo(pCTL, L"IUnknown",TKIND_INTERFACE,&pCTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"CreateTypeInfo failed", "err", MB_OK);
	hres = pCTI->lpVtbl->SetGuid(pCTI,&IID_IUnknown);
	if(!SUCCEEDED(hres)) MessageBox(0,"SetGuid failed", "err", MB_OK);

	/* [restricted] HRESULT _stdcall QueryInterface([in] GUID *riid,
													[out] void **ppvObj) */

	hres = pCTI->lpVtbl->AddRefTypeInfo(pCTI,pGUIDTI, &hrefGUID);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddRefTypeInfo failed", "err", MB_OK);
	memset(&fdesc, 0, sizeof(fdesc));
	memset(&edesc, 0, sizeof(edesc));
	memset(&tdesc, 0, sizeof(tdesc));
	memset(&tdesc2, 0, sizeof(tdesc2));
	memset(&tdesc3, 0, sizeof(tdesc3));
	fdesc.memid = 0x60000000;
	fdesc.funckind = FUNC_PUREVIRTUAL;
	fdesc.invkind = INVOKE_FUNC;
	fdesc.callconv = CC_STDCALL;
	fdesc.cParams = 2;
	fdesc.cParamsOpt = 0;
	fdesc.oVft = 0;
	fdesc.wFuncFlags = FUNCFLAG_FRESTRICTED;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = &edesc[0];
	fdesc.lprgelemdescParam[0].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc = &tdesc;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->vt = VT_USERDEFINED;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->hreftype = hrefGUID;
	fdesc.lprgelemdescParam[0].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[1].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc = &tdesc2;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->vt = VT_PTR;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->lptdesc = &tdesc3;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->lptdesc->vt = VT_VOID;
	fdesc.lprgelemdescParam[1].idldesc.wIDLFlags = IDLFLAG_FOUT;
	pCTI->lpVtbl->AddFuncDesc(pCTI,0,&fdesc);
	olestr[0] = L"QueryInterface";
	olestr[1] = L"riid";
	olestr[2] = L"ppvObj";
	pCTI->lpVtbl->SetFuncAndParamNames(pCTI,0,olestr,3);

	/* [restricted] unsigned long _stdcall AddRef() */
	fdesc.memid++;
	fdesc.cParams = 0;
	fdesc.oVft = 0;
	fdesc.elemdescFunc.tdesc.vt = VT_UI4;
	fdesc.lprgelemdescParam = NULL;
	hres = pCTI->lpVtbl->AddFuncDesc(pCTI,1,&fdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddFuncDesc failed", "err", MB_OK);
	olestr[0] = L"AddRef";
	olestr[1] = 0;
	hres = pCTI->lpVtbl->SetFuncAndParamNames(pCTI,1,olestr,1);

	/* [restricted] unsigned long _stdcall Release() */
	fdesc.memid++;
	fdesc.cParams = 0;
	fdesc.oVft = 0;
	fdesc.elemdescFunc.tdesc.vt = VT_UI4;
	fdesc.lprgelemdescParam = NULL;
	hres = pCTI->lpVtbl->AddFuncDesc(pCTI,2,&fdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddFuncDesc failed", "err", MB_OK);
	olestr[0] = L"Release";
	hres = pCTI->lpVtbl->SetFuncAndParamNames(pCTI,2,olestr,1);
	if(!SUCCEEDED(hres)) MessageBox(0,"SetFuncAndParamNames failed", "err", MB_OK);

	hres = pCTI->lpVtbl->LayOut(pCTI);
	if(!SUCCEEDED(hres)) {sprintf(buf, "Layout failed %08lx", hres); MessageBox(0, buf, "err", MB_OK);}
	hres = pCTI->lpVtbl->QueryInterface(pCTI,&IID_ITypeInfo,(void**)&pIUnknownTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"QI failed", "err", MB_OK);
	pCTI->lpVtbl->Release(pCTI);


	/* interface IDispatch : IUnknown */
	pCTL->lpVtbl->CreateTypeInfo(pCTL, L"IDispatch",TKIND_INTERFACE,&pCTI);
	pCTI->lpVtbl->SetGuid(pCTI,&IID_IDispatch);
	pCTI->lpVtbl->AddRefTypeInfo(pCTI,pIUnknownTI, &hrefIUnknown);
	pCTI->lpVtbl->AddRefTypeInfo(pCTI,pGUIDTI, &hrefGUID);
	pCTI->lpVtbl->AddRefTypeInfo(pCTI,pDISPPARAMSTI, &hrefDISPPARAMS);
	pCTI->lpVtbl->AddRefTypeInfo(pCTI,pEXCEPINFOTI, &hrefEXCEPINFO);
	hres=pCTI->lpVtbl->AddImplType(pCTI,0,hrefIUnknown);
	sprintf(buf,"AddImplType failed hres = %08lx", hres);
	if(!SUCCEEDED(hres)) MessageBox(0,buf, "err", MB_OK);
	
	/* [restricted] HRESULT _stdcall GetTypeInfoCount([out]unsigned int *pctinfo) */
	fdesc.memid = 0x60010000;
	fdesc.cParams = 1;
	fdesc.oVft = 0;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = &edesc[0];
	fdesc.lprgelemdescParam[0].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc = &tdesc;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->vt = VT_UINT;
	fdesc.lprgelemdescParam[0].idldesc.wIDLFlags = IDLFLAG_FOUT;
	hres=pCTI->lpVtbl->AddFuncDesc(pCTI,0,&fdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddFuncDesc failed", "err", MB_OK);
	olestr[0] = L"GetTypeInfoCount";
	olestr[1] = L"pctinfo";
	hres=pCTI->lpVtbl->SetFuncAndParamNames(pCTI,0,olestr,2);
	if(!SUCCEEDED(hres)) MessageBox(0,"SetNames failed", "err", MB_OK);


	/* [restricted] HRESULT _stdcall GetTypeInfo([in] unsigned int itinfo,
												 [in] unsigned long lcid,
												 [out] void **pptinfo) */
	fdesc.memid++;
	fdesc.cParams = 3;
	fdesc.oVft = 0;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = &edesc[0];
	fdesc.lprgelemdescParam[0].tdesc.vt = VT_UINT;
	fdesc.lprgelemdescParam[0].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[1].tdesc.vt = VT_UI4;
	fdesc.lprgelemdescParam[1].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[2].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[2].tdesc.lptdesc = &tdesc;
	fdesc.lprgelemdescParam[2].tdesc.lptdesc->vt = VT_PTR;
	fdesc.lprgelemdescParam[2].tdesc.lptdesc->lptdesc = &tdesc2;
	fdesc.lprgelemdescParam[2].tdesc.lptdesc->lptdesc->vt = VT_VOID;
	fdesc.lprgelemdescParam[2].idldesc.wIDLFlags = IDLFLAG_FOUT;
	hres=pCTI->lpVtbl->AddFuncDesc(pCTI,1,&fdesc);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddFuncDesc failed", "err", MB_OK);
	olestr[0] = L"GetTypeInfo";
	olestr[1] = L"itinfo";
	olestr[2] = L"lcid";
	olestr[3] = L"pptinfo";
	hres=pCTI->lpVtbl->SetFuncAndParamNames(pCTI,1,olestr,4);
	if(!SUCCEEDED(hres)) MessageBox(0,"SetNames failed", "err", MB_OK);


	/* [restricted] HRESULT _stdcall GetIDsOfNames([in] GUID *riid,
												   [in] char **rgszNames,
												   [in] unsigned int cNames,
												   [in] unsigned long lcid,
												   [out] long *rgdispid) */
	fdesc.memid++;
	fdesc.cParams = 5;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = &edesc[0];
	fdesc.lprgelemdescParam[0].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc = &tdesc;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->vt = VT_USERDEFINED;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->hreftype = hrefGUID;
	fdesc.lprgelemdescParam[0].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[1].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc = &tdesc2;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->vt = VT_PTR;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->lptdesc = &tdesc3;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->lptdesc->vt = VT_I1;;
	fdesc.lprgelemdescParam[1].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[2].tdesc.vt = VT_UINT;
	fdesc.lprgelemdescParam[2].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[3].tdesc.vt = VT_UI4;
	fdesc.lprgelemdescParam[3].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[4].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[4].tdesc.lptdesc = &tdesc4;
	fdesc.lprgelemdescParam[4].tdesc.lptdesc->vt = VT_I4;
	fdesc.lprgelemdescParam[4].idldesc.wIDLFlags = IDLFLAG_FOUT;
	pCTI->lpVtbl->AddFuncDesc(pCTI,2,&fdesc);
	olestr[0] = L"GetIDsOfNames";
	olestr[1] = L"riid";
	olestr[2] = L"rgszNames";
	olestr[3] = L"cNames";
	olestr[4] = L"lcid";
	olestr[5] = L"rgdispid";
	pCTI->lpVtbl->SetFuncAndParamNames(pCTI,2,olestr,6);

	/* [restricted] HRESULT _stdcall Invoke([in] long dispidMember,
											[in] GUID* riid, 
											[in] unsigned long lcid, 
											[in] unsigned short wFlags, 
											[in] DISPPARAMS* pdispparams, 
											[out] VARIANT* pvarResult, 
											[out] EXCEPINFO* pexcepinfo, 
											[out] unsigned int* puArgErr); */

	fdesc.memid++;
	fdesc.cParams = 8;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = &edesc[0];
	fdesc.lprgelemdescParam[0].tdesc.vt = VT_I4;
	fdesc.lprgelemdescParam[0].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[1].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc = &tdesc;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->vt = VT_USERDEFINED;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->hreftype = hrefGUID;
	fdesc.lprgelemdescParam[1].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[2].tdesc.vt = VT_UI4;
	fdesc.lprgelemdescParam[2].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[3].tdesc.vt = VT_UI2;
	fdesc.lprgelemdescParam[3].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[4].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[4].tdesc.lptdesc = &tdesc2;
	fdesc.lprgelemdescParam[4].tdesc.lptdesc->vt = VT_USERDEFINED;
	fdesc.lprgelemdescParam[4].tdesc.lptdesc->hreftype = hrefDISPPARAMS;
	fdesc.lprgelemdescParam[4].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[5].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[5].tdesc.lptdesc = &tdesc3;
	fdesc.lprgelemdescParam[5].tdesc.lptdesc->vt = VT_VARIANT;
	fdesc.lprgelemdescParam[5].idldesc.wIDLFlags = IDLFLAG_FOUT;
	fdesc.lprgelemdescParam[6].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[6].tdesc.lptdesc = &tdesc4;
	fdesc.lprgelemdescParam[6].tdesc.lptdesc->vt = VT_USERDEFINED;
	fdesc.lprgelemdescParam[6].tdesc.lptdesc->hreftype = hrefEXCEPINFO;
	fdesc.lprgelemdescParam[6].idldesc.wIDLFlags = IDLFLAG_FOUT;
	fdesc.lprgelemdescParam[7].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[7].tdesc.lptdesc = &tdesc5;
	fdesc.lprgelemdescParam[7].tdesc.lptdesc->vt = VT_UINT;
	fdesc.lprgelemdescParam[7].idldesc.wIDLFlags = IDLFLAG_FOUT;
	pCTI->lpVtbl->AddFuncDesc(pCTI,3,&fdesc);
	olestr[0] = L"Invoke";
	olestr[1] = L"dispidMember";
	olestr[2] = L"riid";
	olestr[3] = L"lcid";
	olestr[4] = L"wFlags";
	olestr[5] = L"pdispparams";
	olestr[6] = L"pvarResult";
	olestr[7] = L"pexcepinfo";
	olestr[8] = L"puArgErr";
	pCTI->lpVtbl->SetFuncAndParamNames(pCTI,3,olestr,9);


	hres=pCTI->lpVtbl->LayOut(pCTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"Layout failed", "err", MB_OK);
	pCTI->lpVtbl->Release(pCTI);


	
	/* interface IEnumVARIANT : IUnknown */
	pCTL->lpVtbl->CreateTypeInfo(pCTL, L"IEnumVARIANT",TKIND_INTERFACE,&pCTI);
	pCTI->lpVtbl->SetGuid(pCTI,&IID_IEnumVARIANT);
	pCTI->lpVtbl->AddRefTypeInfo(pCTI,pIUnknownTI, &hrefIUnknown);
	hres = pCTI->lpVtbl->AddImplType(pCTI,0,hrefIUnknown);
	if(!SUCCEEDED(hres)) MessageBox(0,"AddImplType failed", "err", MB_OK);

    /* HRESULT _stdcall Next([in] unsigned long celt, 
							 [in] VARIANT* rgvar, 
							 [out] unsigned long* pceltFetched) */
	fdesc.memid = 0x60010000;
	fdesc.wFuncFlags = 0;
	fdesc.cParams = 3;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = &edesc[0];
	fdesc.lprgelemdescParam[0].tdesc.vt = VT_UI4;
	fdesc.lprgelemdescParam[0].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[1].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc = &tdesc;
	fdesc.lprgelemdescParam[1].tdesc.lptdesc->vt = VT_VARIANT;
	fdesc.lprgelemdescParam[1].idldesc.wIDLFlags = IDLFLAG_FIN;
	fdesc.lprgelemdescParam[2].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[2].tdesc.lptdesc = &tdesc2;
	fdesc.lprgelemdescParam[2].tdesc.lptdesc->vt = VT_UI4;
	fdesc.lprgelemdescParam[2].idldesc.wIDLFlags = IDLFLAG_FOUT;
	pCTI->lpVtbl->AddFuncDesc(pCTI,0,&fdesc);
	olestr[0] = L"Next";
	olestr[1] = L"celt";
	olestr[2] = L"rgvar";
	olestr[3] = L"pceltFetched";
	pCTI->lpVtbl->SetFuncAndParamNames(pCTI,0,olestr,4);

	/* HRESULT _stdcall Skip([in] unsigned long celt) */
	fdesc.memid++;
	fdesc.cParams = 1;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = &edesc[0];
	fdesc.lprgelemdescParam[0].tdesc.vt = VT_UI4;
	fdesc.lprgelemdescParam[0].idldesc.wIDLFlags = IDLFLAG_FIN;
	pCTI->lpVtbl->AddFuncDesc(pCTI,1,&fdesc);
	olestr[0] = L"Skip";
	olestr[1] = L"celt";
	pCTI->lpVtbl->SetFuncAndParamNames(pCTI,1,olestr,2);

	/* HRESULT _stdcall Reset() */
	fdesc.memid++;
	fdesc.cParams = 0;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = NULL;
	pCTI->lpVtbl->AddFuncDesc(pCTI,2,&fdesc);
	olestr[0] = L"Reset";
	pCTI->lpVtbl->SetFuncAndParamNames(pCTI,2,olestr,1);

	/* HRESULT _stdcall Clone([out] IEnumVARIANT** ppenum) */
	hres=pCTI->lpVtbl->QueryInterface(pCTI,&IID_ITypeInfo,(void**)&pIEnumVARIANTTI);
	hres=pCTI->lpVtbl->AddRefTypeInfo(pCTI,pIEnumVARIANTTI,&hrefIEnumVARIANT);
	fdesc.memid++;
	fdesc.cParams = 1;
	fdesc.elemdescFunc.tdesc.vt = VT_HRESULT;
	fdesc.lprgelemdescParam = &edesc[0];
	fdesc.lprgelemdescParam[0].tdesc.vt = VT_PTR;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc = &tdesc;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->vt = VT_PTR;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->lptdesc = &tdesc2;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->lptdesc->vt = VT_USERDEFINED;
	fdesc.lprgelemdescParam[0].tdesc.lptdesc->lptdesc->hreftype = hrefIEnumVARIANT;
	fdesc.lprgelemdescParam[0].idldesc.wIDLFlags = IDLFLAG_FOUT;
	pCTI->lpVtbl->AddFuncDesc(pCTI,3,&fdesc);
	olestr[0] = L"Clone";
	olestr[1] = L"ppenum";
	pCTI->lpVtbl->SetFuncAndParamNames(pCTI,3,olestr,2);
	
	hres=pCTI->lpVtbl->LayOut(pCTI);
	if(!SUCCEEDED(hres)) MessageBox(0,"Layout failed", "err", MB_OK);
	pCTI->lpVtbl->Release(pCTI);

	/* save */
	pIUnknownTI->lpVtbl->Release(pIUnknownTI);
	pGUIDTI->lpVtbl->Release(pGUIDTI);
	pDISPPARAMSTI->lpVtbl->Release(pDISPPARAMSTI);
	pEXCEPINFOTI->lpVtbl->Release(pEXCEPINFOTI);
	hres=pCTL->lpVtbl->SaveAllChanges(pCTL);
	if(!SUCCEEDED(hres)) MessageBox(0,"SaveAllChanges failed", "err", MB_OK);
	return 0;
}