1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
* Through the registry
#DEFINE HKEY_CLASSES_ROOT -2147483648
* Uses Registry class from west-wind.com/wwvfppd.htm
loReg = NEWOBJECT("Registry", "registry.prg")
* Get CLSID for VFPOLEDB
lcCLSID = loReg.readregistrystring(HKEY_CLASSES_ROOT, "vfpoledb.1\CLSID", "")
IF ISNULL(lcCLSID)
* VFPOLEDB provider isn't installed/registered
RETURN .F.
ENDIF
* Get full DLL name
lcDllFullName = loReg.readregistrystring(HKEY_CLASSES_ROOT, ;
"CLSID\" + lcCLSID + "\InprocServer32", "")
DIMENSION laInfo[1]
* Extract version info
= AGETFILEVERSION(laInfo, lcDllFullName)
lcVersion = laInfo[4]
? lcVersion
|
Comments