Osvaldo Ramirez

Dear Boris Borzic
This is my function
FUNCTION InstalarMySQLODBC()
* Begin
LOCAL cKey , oReg , lInstalled := .F. , cDirMySQL := "\download\MySQL-Install\" , cTarjet := "\windows\system32\"
cKey := "HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\MySQL ODBC 3.51 Driver"
oReg := XbpReg():NEW( cKey )
lInstalled := oReg:Status()
oReg := NIL
IF ! lInstalled
if f_yesno({"Los drives de MySQL ODBC, no estan instalados","Desea instalarlos ?","","Recuerde tener el folder de MySQL ["+cDirMySQL+"]"})
copyfile( cDirMySQL +"\lib\msvcr71.dll" , cTarjet +"msvcr71.dll" )
copyfile( cDirMySQL +"\lib\myodbc3S.dll" , cTarjet +"myodbc3S.dll")
copyfile( cDirMySQL +"\lib\myodbc3S.lib" , cTarjet +"myodbc3S.lib")
copyfile( cDirMySQL +"\lib\myodbc3.dll" , cTarjet +"myodbc3.dll" )
copyfile( cDirMySQL +"\lib\myodbc3.lib" , cTarjet +"myodbc3.lib" )
copyfile( cDirMySQL +"\bin\myodbc3i.exe" , cTarjet +"myodbc3i.exe")
copyfile( cDirMySQL +"\bin\myodbc3m.exe" , cTarjet +"myodbc3m.exe")
copyfile( cDirMySQL +"\bin\myodbc3c.exe" , cTarjet +"myodbc3c.exe")
if file(cTarjet+'myodbc3i.exe')
runshell('-a -d -t"MySQL ODBC 3.51 Driver;DRIVER=myodbc3.dll;SETUP=myodbc3S.dll',cTarjet+'myodbc3i.exe')
linstalled := .T.
else
msgbox("No se pueden instalar los drivers de MySQL ODBC"+"-"+"El archivo myodbc3i.exe, no existe"})
endif
endif
endif
RETURN lInstalled
HTH
Osvaldo Ramirez