自動註冊數據源,odbc

//獲取程序所在目錄

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!,‘‘)

 作者：偶爾衝動 來源：csdn.net