Vfp6-----工具

不用安装直接解压可用，VFP6.EXE 应用程序

// 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  Vfp98\Api\
     文件           0  2017-01-22 09:28  Vfp98\Api\MSCREATE.DIR
     文件       51448  1998-07-09 00:00  Vfp98\Api\OCXAPI.LIB
     文件       40964  1998-07-09 00:00  Vfp98\Api\PRO_EXT.H
     目录           0  2017-02-16 13:38  Vfp98\Api\Samples\
     文件        9807  1998-07-09 00:00  Vfp98\Api\Samples\EVENT.C
     文件        5327  1998-07-09 00:00  Vfp98\Api\Samples\EXAMPLES.DBF
     文件      272896  1998-07-09 00:00  Vfp98\Api\Samples\EXAMPLES.FPT
     目录           0  2017-02-16 13:38  Vfp98\Api\Samples\Foxtlib\
     文件        1911  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\FOXTLIB.CPP
     文件         222  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\FOXTLIB.DEF
     文件         531  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\FOXTLIB.H
     文件       23862  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\FOXTLIB.MAK
     文件        2473  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\FOXTLIB.ODL
     文件        3089  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\FOXTLIB.RC
     文件         238  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\foxtlibctl.bmp
     文件       36491  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\foxtlibctl.cpp
     文件        2949  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\foxtlibctl.h
     文件        2395  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\foxtlibppg.cpp
     文件         984  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\foxtlibppg.h
     文件           0  2017-01-22 09:28  Vfp98\Api\Samples\Foxtlib\MSCREATE.DIR
     文件        3714  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\README.TXT
     文件         484  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\RESOURCE.H
     文件         204  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\STDAFX.CPP
     文件         534  1998-07-09 00:00  Vfp98\Api\Samples\Foxtlib\STDAFX.H
     文件        6053  1998-07-09 00:00  Vfp98\Api\Samples\GREETING.MAK
     文件         425  1998-07-09 00:00  Vfp98\Api\Samples\HELLO.C
     文件        1032  1998-07-09 00:00  Vfp98\Api\Samples\LOGIREPL.C
     文件        2271  1998-07-09 00:00  Vfp98\Api\Samples\MEMREPL.C
     文件        1931  1998-07-09 00:00  Vfp98\Api\Samples\MODIFER.C
............此处省略1353个文件信息