Oracle不装客户端的办法

Oracle不装客户端的办法：

PB9 + Oracle9iR2 不装客户端的安装办法,总文件不超过36M。

1，取己安装并配置好的Oracle客户端文件拷贝本地磁盘
 目录: ../Oracle/ora92/network/ADMIN/  必需文件: tansnames.ora
       ../Oracle/ora92/network/mesg/   所有文件
       ../Oracle/ora92/bin/            所有的DLL文件,其他可以不要
       ../Oracle/ora92/ocmmon/nls/ADMIN/DATA/    所有文件
       ../Oracle/ora92/ocmmon/nls/mesg/          所有文件
       ../Oracle/ora92/oracore/mesg/             所有文件
       ../Oracle/ora92/oracore/zoneinfo/         所有文件

2, 增加注册表 (可以通过PB写到注册表内)
 [HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0]
 "ORACLE_HOME_NAME"="OraHome92"
 "ORACLE_HOME"="C://oracle//ora92"               //Oracle客户端文件路径
 "NLS_LANG"="SIMPLIFIED CHINESE_CHINA.ZHS16GBK"  //字符集

3，增加环境变量
 // 注册表路径
 [HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Environment]
 如："Path"="%SystemRoot%/system32;%SystemRoot%;%SystemRoot%/System32/Wbem;c:/oracle/ora92/bin"
 // 加在最后

建议把Oracle客户端文件放到当前应用目录下，注册表操作通PB的RegistrySet()写入，如：
 // Oracle 客户端文件请放在程序目录下边: gs_directory/Oracle/ora92/...
 ls_dir = ls_dir + '/Oracle/ora92'
 li_rtn = RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0", "ORACLE_HOME_NAME", RegString!, "OraHome92")
 li_rtn = RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0", "ORACLE_HOME", RegString!, ls_dir)
 li_rtn = RegistrySet("HKEY_LOCAL_MACHINE/SOFTWARE/ORACLE/HOME0", "NLS_LANG", RegString!, "SIMPLIFIED CHINESE_CHINA.ZHS16GBK")
 
 //环境变量Oracle动态库文件路径: gs_directory/Oracle/ora92/bin/
 ls_dir = ls_dir + '/bin'
 li_rtn = RegistryGet("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Environment","Path", RegExpandString!, ls_path)
 li_pos = Pos(ls_path,ls_dir,1)
 
 If li_rtn <> 1 Then
  Messagebox('错误','注册表读写失败!')
  Return
 End If
 
 If li_pos <= 0 Then
  If Len(ls_path) > 0 Then
   ls_path = ls_path + ";"+ls_dir
  ElseIf Len(ls_path) <= 0 Then
   ls_path = ls_dir
  End If
  li_rtn = RegistrySet("HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Session Manager/Environment","Path", RegExpandString!, ls_path)
 End If
 
 If li_rtn <> 1 Then
  Messagebox('错误','注册表读写失败!')
  Return
 End If
 Messagebox('提示','配置完毕,请重启Windows生效!')