关于打包的路径问题。

laiyongjun 2003-08-26 09:37:40
cow8063(吴七郎) :以上这些我都做了。
if ComponentIsItemSelected (MEDIA, "BDE驱动") then
szClass="";
KeyBLW32="SOFTWARE\\Borland\\BLW32";

nResult = CreateRegistrySet( "" );
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
RegDBCreateKeyEx ( KeyBLW32 , szClass );
RegDBSetKeyValueEx ( KeyBLW32 , "BLAPIPATH" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE" , -1 );
RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB1" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE\\USA.BLL" , -1 );
RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB2" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE\\EUROPE.BLL" , -1 );
RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB3" , REGDB_STRING , PROGRAMFILES^"\\Borland\\Common Files\\BDE\\CEEUROPE.BLL" , -1 );
RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB4" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE\\CHARSET.BLL" , -1 );
RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB5" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE\\OTHER.BLL" , -1 );
RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB6" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE\\FAREAST.BLL" , -1 );
RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB7" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE\\JAPAN.BLL" , -1 );

KeyDbEngine="SOFTWARE\\Borland\\Database Engine";
RegDBCreateKeyEx ( KeyDbEngine , szClass );
RegDBSetKeyValueEx ( KeyDbEngine , "CONFIGFILE01" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE\\IDAPI.CFG" , -1 );
RegDBSetKeyValueEx ( KeyDbEngine , "DLLPATH" , REGDB_STRING , PROGRAMFILES^"Borland\\Common Files\\BDE" , -1 );
RegDBSetKeyValueEx ( KeyDbEngine , "RESOURCE" , REGDB_STRING , "0009" , -1 );
RegDBSetKeyValueEx ( KeyDbEngine , "SaveConfig" , REGDB_STRING , "WIN32" , -1 );
RegDBSetKeyValueEx ( KeyDbEngine , "UseCount" , REGDB_STRING , "5" , -1 );
endif;
nResult = CreateRegistrySet( "" );

return nResult;
但是如我在BDE中建的别名lai,其对应路径是d:\ev,可是打包安装到另一台机子后,其lai还是指到d:\ev的。并没有附着安装路径的改变而改变,是不是少写了一句话。如大师指点一下,一定谢谢。(在打BDE的文件时,我索性把BDE目录下所有的文件全打在包里)
...全文
26 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧