//获取程序所在目录
String ls_curdir
//ls_curdir=Space(256)
//为字符缓冲区开辟内存空间
GetCurrentDirectoryA(256,ls_curdir)
ls_curdir = GetCurrentDirectory()
gs_path = ls_curdirstring
ls_ob =Registryget("HKEY_LOCAL_MACHINE/Software","ODBC", RegString!, ls_ob)
if ls_ob = ‘‘ then
registryset("HKEY_LOCAL_MACHINE/Software/",‘odbc‘,regstring!,‘‘)
end if
registryset("HKEY_LOCAL_MACHINE/Software/odbc",‘odbcinst.ini‘,regstring!,‘‘)