发表于 2009-1-5 19:48
| 
鍦≒B绋嬪簭涓疄鐜癘DBC鏁版嵁婧愮殑娣诲姞
鍙戝竷: 2008-6-26 20:45 | 浣滆: admin | 鏌ョ湅: 24娆
鎬濊矾锛
涓昏鏄埄鐢≒B瀵规敞鍐岃〃鎿嶄綔鍑芥暟RegistryGet()鍜孯egistrySet()锛岃繖涓や釜鍑芥暟浠ュ強鍏朵粬娉ㄥ唽琛ㄥ嚱鏁板湪PB鐨勫府鍔╅噷閮芥湁璇︾粏璇存槑銆
鍐嶅氨鏄埄鐢≒B鐨凱rofileString()鍑芥暟璇诲彇INI鏂囦欢涓鍏堝畾涔夊ソ鐨勫弬鏁般
銆
鍐欐敞鍐岃〃鐨勬簮绋嬪簭锛
string ls_sys[],ls_driver[],st_driver,st_path
integer li_rtn
ls_me="鏂版槦绉戞妧鑲′唤鏈夐檺鍏徃锛圢ew Star, Inc.锛"
ls_version="2.0"
ls_sys ="HKEY_LOCAL_MACHINE\Software\ODBC\ODBCINST.INI\Sybase SQL Anywhere 5.0"
ls_sys ="HKEY_CURRENT_USER\Software\"+ls_me+"\浠撳偍绠＄悊绯荤粺\"+ls_version
ls_sys ="HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\ODBC Data Sources"
ls_sys ="HKEY_CURRENT_USER\Software\ODBC\ODBC.INI"
li_rtn = RegistryGet(ls_sys , "Driver", RegString!, st_driver)
IF li_rtn = -1 THEN
messagebox("閿欒","鏈畨瑁匰ybase SQL Anywhere 5.0 锛",information!,ok!)
RETURN
END IF
li_rtn = RegistryGet(ls_sys , "InstPath", RegString!, st_path)
IF li_rtn = -1 THEN
messagebox("閿欒","璇诲彇瀹夎璺緞鍑洪敊 锛",information!,ok!)
RETURN
END IF
string envfile,ls_source[],ls_drivepath,ls_temp
integer i
envfile="regedit.ini"
ls_source ="cl"
ls_source =ProfileString(envfile,"INI","AutoStop"," ")
ls_source =ProfileString(envfile,"INI","DatabaseFile"," ")
ls_source =ProfileString(envfile,"INI","DatabaseName"," ")
ls_source =ProfileString(envfile,"INI","Description"," ")
ls_source =ProfileString(envfile,"INI","Driver"," ")
ls_source =ProfileString(envfile,"INI","PWD"," ")
ls_source[8] =ProfileString(envfile,"INI","Start"," ")
