关于installshield的设置环境变量的问题

594king 2004-02-10 02:32:16
我使用了以下代码,想在path环境变量后添加我自己的路径,但是安装程序执行之后,程序仍然找不到在该path路径下的dll,手工进入环境变量设置区查看发现path变量下有该路径,点击确定退出之后再执行应用程序,发现程序又可以找到该path路径下的dll了,不知道为什么,是不是注册表添加一项之后还需要激活一下才能使用啊?请高手指点
代码如下:
function OnFirstUIAfter()
STRING szTitle, szMsg1, szMsg2, szOption1, szOption2;
NUMBER bOpt1, bOpt2;
string szKeyName;
NUMBER nResult, nvType, nvSize;
STRING szPath, szBinPath;
begin
Disable(STATUSEX);
//DialogSetInfo ( DLG_INFO_ALTIMAGE , SUPPORTDIR ^ "Icon.bmp" , TRUE );
ShowObjWizardPages(NEXT);

RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);

szKeyName = "SYSTEM\\CURRENTCONTROLSET\\CONTROL\\SESSION MANAGER\\ENVIRONMENT";
nResult = RegDBGetKeyValueEx ( szKeyName, "Path", nvType, szPath, nvSize);
if ( nResult < 0 ) then
MessageBox( "Warning! The \"Path\ envionment variable doesn't exit,please check the envionment variable" , INFORMATION );
endif;
szBinPath = TARGETDIR ^ "\\dll";
nResult = szPath % szBinPath;
if ( !nResult ) then
szPath = szPath + ";" + szBinPath;
Disable( LOGGING );
RegDBSetKeyValueEx ( szKeyName, "Path", nvType, szPath, nvSize );
Enable ( LOGGING );
endif;

end;

我使用的是installshield 6.22
...全文
266 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
其他开发语言
创建于2007-08-27

3368

社区成员

其他开发语言 其他开发语言
申请成为版主
社区公告
暂无公告