Vfp6-----工具

// FoxtlibCtl.cpp : Implementation of the CFoxtlibCtrl OLE control class.

#include “stdafx.h“
#include “foxtlib.h“
#include “FoxtlibCtl.h“
#include “FoxtlibPpg.h“
#include “pro_ext.h“
#include “malloc.h“

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

#define MAXPARMS 20	//max # of names for SetFuncAndParamNames （1 + # of parms）

#define VALUE_N_I（val）  （val.ev_type ==‘I‘ ? val.ev_long : （long）val.ev_real）

IMPLEMENT_DYNCREATE（CFoxtlibCtrl COleControl）


/////////////////////////////////////////////////////////////////////////////
// Message map

BEGIN_MESSAGE_MAP（CFoxtlibCtrl COleControl）
	//{{AFX_MSG_MAP（CFoxtlibCtrl）
	// NOTE - ClassWizard will add and remove message map entries
	//    DO NOT EDIT what you see in these blocks of generated code !
	//}}AFX_MSG_MAP
	ON_OLEVERB（AFX_IDS_VERB_EDIT OnEdit）
	ON_OLEVERB（AFX_IDS_VERB_PROPERTIES OnProperties）
END_MESSAGE_MAP（）


/////////////////////////////////////////////////////////////////////////////
// Dispatch map

BEGIN_DISPATCH_MAP（CFoxtlibCtrl COleControl）
	//{{AFX_DISPATCH_MAP（CFoxtlibCtrl）
	DISP_FUNCTION（CFoxtlibCtrl “TLLoadTypeLib“ TLLoadTypeLib VT_I4 VTS_BSTR）
	DISP_FUNCTION（CFoxtlibCtrl “TLRelease“ TLRelease VT_I4 VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TLGetTypeInfoCount“ TLGetTypeInfoCount VT_I4 VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TLGetTypeAttr“ TLGetTypeAttr VT_I4 VTS_I4 VTS_BSTR）
	DISP_FUNCTION（CFoxtlibCtrl “TLGetTypeInfo“ TLGetTypeInfo VT_I4 VTS_I4 VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TLGetDocumentation“ TLGetDocumentation VT_I4 VTS_I4 VTS_BSTR VTS_I4 VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TIGetNames“ TIGetNames VT_I4 VTS_I4 VTS_BSTR VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TIGetFuncDesc“ TIGetFuncDesc VT_I4 VTS_I4 VTS_BSTR VTS_I4 VTS_BSTR）
	DISP_FUNCTION（CFoxtlibCtrl “TLWCreateTypeLib“ TLWCreateTypeLib VT_I4 VTS_BSTR VTS_PI4）
	DISP_FUNCTION（CFoxtlibCtrl “TIGetVarDesc“ TIGetVarDesc VT_I4 VTS_I4 VTS_BSTR VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TLWSaveAllChanges“ TLWSaveAllChanges VT_I4 VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TIWCreateTypeInfo“ TIWCreateTypeInfo VT_I4 VTS_I4 VTS_I4 VTS_PI4 VTS_BSTR VTS_BSTR VTS_PI4）
	DISP_FUNCTION（CFoxtlibCtrl “TLIWWriteDocumentation“ TLIWWriteDocumentation VT_I4 VTS_I4 VTS_BSTR VTS_BSTR VTS_I4 VTS_BSTR VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TILayout“ TILayout VT_I4 VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TIRelease“ TIRelease VT_I4 VTS_I4）
	DISP_FUNCTION（CFoxtlibCtrl “TIAddFuncDesc“ TIAddFuncDesc VT_I4 VTS_I4 VTS_I4 VTS_BSTR VTS_BSTR VTS_BSTR VTS_I4）
	//}}AFX_DISPATCH_MAP
END_DISPATCH_MAP（）


/////////////////////////////////////////////////////////////////////////////
// Event map

BEGIN_EVENT_MAP（CFoxtlibCtrl COleControl）
	//{{AFX_EVENT_MAP（CFoxtlibCtrl）
	// NOTE - ClassWizard will add and remove event map entries
	//    DO NOT EDIT what you see in these blocks of generated code !
	//}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2017-02-16 13:38  Vfp98
     目录           0  2017-02-16 13:38  Vfp98Api
     文件           0  2017-01-22 09:28  Vfp98ApiMSCREATE.DIR
     文件       51448  1998-07-09 00:00  Vfp98ApiOCXAPI.LIB
     文件       40964  1998-07-09 00:00  Vfp98ApiPRO_EXT.H
     目录           0  2017-02-16 13:38  Vfp98ApiSamples
     文件        9807  1998-07-09 00:00  Vfp98ApiSamplesEVENT.C
     文件        5327  1998-07-09 00:00  Vfp98ApiSamplesEXAMPLES.DBF
     文件      272896  1998-07-09 00:00  Vfp98ApiSamplesEXAMPLES.FPT
     目录           0  2017-02-16 13:38  Vfp98ApiSamplesFoxtlib
     文件        1911  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibFOXTLIB.CPP
     文件         222  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibFOXTLIB.DEF
     文件         531  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibFOXTLIB.H
     文件       23862  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibFOXTLIB.MAK
     文件        2473  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibFOXTLIB.ODL
     文件        3089  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibFOXTLIB.RC
     文件         238  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibfoxtlibctl.bmp
     文件       36491  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibfoxtlibctl.cpp
     文件        2949  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibfoxtlibctl.h
     文件        2395  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibfoxtlibppg.cpp
     文件         984  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibfoxtlibppg.h
     文件           0  2017-01-22 09:28  Vfp98ApiSamplesFoxtlibMSCREATE.DIR
     文件        3714  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibREADME.TXT
     文件         484  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibRESOURCE.H
     文件         204  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibSTDAFX.CPP
     文件         534  1998-07-09 00:00  Vfp98ApiSamplesFoxtlibSTDAFX.H
     文件        6053  1998-07-09 00:00  Vfp98ApiSamplesGREETING.MAK
     文件         425  1998-07-09 00:00  Vfp98ApiSamplesHELLO.C
     文件        1032  1998-07-09 00:00  Vfp98ApiSamplesLOGIREPL.C
     文件        2271  1998-07-09 00:00  Vfp98ApiSamplesMEMREPL.C
     文件        1931  1998-07-09 00:00  Vfp98ApiSamplesMODIFER.C
............此处省略1353个文件信息