Bueno, aquí lo vuelvo a colocar, espero no lo borren de nuevo.
varrt = x_ruta+"\Ribbondbc.dll"
LOCAL oReg,regfile,nErrNum,lDrivers
local iDriver
Public RESULT
RESULT=0
Display=0
#Define HKEY_LOCAL_MACHINE
2147483650 && (HKEY) 0x80000002
#Define SECURITY_ACCESS_MASK 983103 && SAM value KEY_ALL_ACCESS
Declare RegCreateKeyEx In ADVAPI32.Dll Integer,String,Integer,String, ;
Integer,Integer,Integer,Integer @, Integer @
Declare RegSetValueEx In ADVAPI32.Dll Integer,String,Integer,Integer,String,Integer
RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\ODBC\ODBCINST.INI\Ribbondbc Driver",0,"REG_SZ", 0,SECURITY_ACCESS_MASK,0,@RESULT,@Display) && Returns .T. if successful
RegSetValueEx(RESULT,"Driver",0,1,varrt,Len(Alltrim(varrt)))
RegSetValueEx(RESULT,"Setup",0,1,varrt,Len(Alltrim(varrt)))
RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\ODBC\ODBCINST.INI\Ribbondbc",0,"REG_SZ", 0,SECURITY_ACCESS_MASK,0,@RESULT,@Display) && Returns .T. if successful
RegSetValueEx(RESULT,"Driver",0,1,varrt,Len(Alltrim(varrt)))
RegSetValueEx(RESULT,"Setup",0,1,varrt,Len(Alltrim(varrt)))
RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers",0,"REG_SZ", 0,SECURITY_ACCESS_MASK,0,@RESULT,@Display) && Returns .T. if successful
RegSetValueEx(RESULT,"Ribbondbc",0,1,"Installed",13)
RegSetValueEx(RESULT,"Ribbondbc Driver ",0,1,"Installed",13)