用installshield打包时在注册表里注册项和键值的动态设定方法

在11.5版本里，注册表的函数变化不多

我在这里要记录的是打包的时候注册表的问题，注册表分项和键，打开注册表（开始->运行，输入regedit，确定），可以在左边的树形里看见很多文件夹的图标，这些是项，点击一个项，可以在右边看见他的键值，每个项都有一个“默认”，有的项还有很多键值

在打包的时候，我们有时候要记录很多东西，嗯，我们要记录安装文件的类型（服务器端程序还是客户端程序），我们要记录软件的注册类型（测试版本还是已经注册的软件），我们要记录软件的安装路径（这样我们升级软件的时候，我们的补丁程序可以自己copy到安装路径下），我们想记录的很多东西，我们经常喜欢用注册表，这里我讲两种注册方法

一、要注册的项和键值是静态的

静态的意思是要注册的所有项和键，他们的值在制作安装包的时候就知道的，我们可以直接在is的Registry面板里设置

我假设我要建一个项：HKEY_LOCAL_MACHINE//SOFTWARE//NNLLTEST，在NNLLTEST下有两个string value的键：install(记录安装路径)、soft(记录这个软件是测试版，值是0)

步骤是这个：

１、点击Registry面板，展开Default，可以看见五个根，这五个根是固定的，不变的

２、选中HKEY_LOCAL_MACHINE，右击，选菜单new->Key，新建一个项“New Key #1”，修改名字是“SOFTWARE”

３、选中SOFTWARE，右击，选菜单new->Key，新建一个项“New Key #1”，修改名字是“NNLLTEST”

这样就建好一个项HKEY_LOCAL_MACHINE//SOFTWARE//NNLLTEST了，下面建健值

４、选中NNLLTEST，右击，选菜单new->string value，新建一个键“New Value #1”，修改名字是“install”，这样就建了一个键，双击这个键值，在“value data”文本框里输入：<TARGETDIR>

<TARGETDIR>在is里是代表安装路径的

５、重复第４步，修改名字是“soft”，输入“value data”是：0

这样就建好了如图的注册表

 

安装文件在安装后，也会按这里的设置自动在注册表里生成的，这里生成的注册表项和键值，在卸载时会同时卸载

上面一共是五步，也可以直接在自己的注册表里加上键值后，导出reg文件，Registry面板里使用导入菜单导入，在11.5里，Registry面板里，分了四块，左上角是自己的注册表，也可以直接把自己的注册表，copy到左下角的安装包的注册表里

二、要注册的项和键值是动态的

动态的意思是要注册的项和键，他们的值是不知道的，是在用户安装的时候，由用户的选择和输入的值确定的，这时候我们要用注册表函数在脚本里注册

我不想说注册表函数，我学得不多，想学习下载《InstallShield内部库函数全集中文版》，我这里记录下我学习的时候用到的一些东西

我的一篇帖子

问:请教RegDBGetKeyValueEx 用法:

 

语法：RegDBGetKeyValueEx (szKey, szName, nvType, svValue, nvSize);

说明：RegDBGetKeyValueEx函数检索注册表中一个指定项下一个特定数值名的值。缺省时，InstallShield假定该项是HKEY_CLASSES_ROOT下的一个子项。你可以用RegDBSetDefaultRoot来指定另一个开关键。RegDBGetKeyValueEx是一个通用注册表相关函数，设计为可工作于所有注册表项，包括那些由特殊注册表相关函数处理的项。

参数： 　　szKey指定其值要被检索的项的名称。用一个双反斜杠来分隔子项中的不同层。 　　szName指定在szKey下其值要被检索的数值的数值名。要检索项的缺省值，则传递一个空字符串。 　　nvType返回下列预定义常量之一，它们标识在svValue返回的数据的类型：请参阅15.12中该部分的说明。 　　svValue返回由szKey和svName 指定的值。注意一个数值型值以一个字符串返回。 　　nvSize以字节数返回在svValue返回的值的大小。

返回值： 　　0：表明函数成功检索该值。 　　< 0：表明函数未能检索该值。

 

红色那里，“项”是指在注册表里，左边的用文件夹的图片显示的那些吗？那“数据值”是没是指注册表中右边显示的那个“名称、类型、数据”列表里的名称呢？

试了好几种调用都出错了，究竟这几个词，对应的是注册表里的嘛啊？

答:

李木勺 15:09:01
RegDBSetKeyVAlueEx(szKeyRoot,"path",REGDB_STRING,INSTALLDIR,-1);
李木勺 15:15:07
szKey="SOFTWARE//NNLLTEST";这是你创建的项。
你却往这个地方写值：
SOFTWARE//NNLLTEST//cona

这两句话教会了我RegDBSetKeyVAlueEx是怎么用的

１、用InstallationInfo创建的项，用RegDBSetItem创建的键值
InstallationInfo创建的项是一定在HKEY_LOCAL_MACHINE]/Software /Microsoft/Windows/CurrentVersion/App Paths下的，函数是这个

function NnllReg()
number nItem;   
string szCompany,szProduct, szVersion, szProductKey, szValue;
begin    
 //修改注册表
 //在在HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/App Paths/下
 //创建了一个项：NNLL想添加键
 //两个键：默认和Path
 //反安装可卸裁
   szCompany="公司名";
      szProduct="软件名";
      szVersion="1.0";
      szProductKey=" //NNLL想添加键";
      if (InstallationInfo (szCompany, szProduct, szVersion, szProductKey) < 0) then
         MessageBox("添加项出错",SEVERE);
      else
         //添加这个项下的键值
         //默认
         nItem=REGDB_APPPATH_DEFAULT;
         szValue=TARGETDIR + " //default";
         RegDBSetItem (nItem, szValue);
         //Path
         nItem=REGDB_APPPATH;
         szValue=TARGETDIR;
         RegDBSetItem (nItem, szValue);
      endif;
end;

这样注册的注册表，在卸栽的时候是同时卸栽的

２、使用RegDBSetKeyValueEx在指定的路径注册项和键值

我假设我要建一个项：HKEY_LOCAL_MACHINE//SOFTWARE//NNLLTEST，在NNLLTEST下有两个string value的键：cona(记录公司名)、sc(记录这个软件是客户端程序还是服务器端程序)

①获取公司名和用户名的对话框一般是is自动生成的

Dlg_SdRegisterUser:
    szMsg = "";
    szTitle = "";
    //{{IS_SCRIPT_TAG(Dlg_SdRegisterUser) 
    nResult = SdRegisterUser( szTitle, szMsg, szName, szCompany );
    //}}IS_SCRIPT_TAG(Dlg_SdRegisterUser)
    if (nResult = BACK) goto Dlg_SdLicense2;

②在OnFirstUIBefore函数里，加入让用户选择对话框，让用户确定是安装服务器端程序还是客户端程序

//NNLL加入判断，安装的是服务器还是工作站
SelectType:
szMsg="请选择安装的计算机用于："   ;
bvCheck1 = TRUE;                     
bvCheck2 = FALSE;
bvType = TRUE;
nResult = AskOptions ( EXCLUSIVE , szMsg , "服务器" , bvCheck1 , "工作站" , bvCheck2 );
    if (nResult = BACK) goto Dlg_SdLicense2;
    if bvCheck2 = TRUE then
       //工作站，注册表项server=0
       bvType = FALSE;
    else
       //服务器，注册表项server=1
       bvType = TRUE;
   endif;
//NNLL修改完毕

哦，我忘了说了，szCompany和bvType两个变量要设置成全局变量

③添加注册表函数

function NnllReg()   
number nRootKey,nType,nSize;
string szKey,szNumName,szNumValue,szClass;
begin    
 //修改注册表
 nRootKey = HKEY_LOCAL_MACHINE;
 RegDBSetDefaultRoot (nRootKey); //置根为nRootKey
 //注册子项
 szKey="SOFTWARE//NNLLTEST//";
 if RegDBKeyExist(szKey) < 0 then
    //不存在“SOFTWARE//NNLLTEST”，创建这个项
    RegDBCreateKeyEx(szKey,"");
 endif;
 //初始化每个键的公共值
 nType=REGDB_STRING;
 nSize=-1;
 //注册安装路径
 szNumName="install";
 szNumValue=TARGETDIR;
    RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    //设置为未注册版本
    szNumName="soft";
 szNumValue="0";
 if RegDBKeyExist(szKey) < 0 then
    //如果不存在这个项，就注册，如果存在，就跳过
    RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    RegDBCreateKeyEx (szKey, szClass);
 endif;
    //注册公司名
 szNumName="cona";
 szNumValue=szCompany;
    RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    //注册程序类型
    szNumName="sc";
    if bvType then
    szNumValue="S";
 else
    szNumValue="C";
 endif;
    RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
end;

④调用这个自定义函数，在安装结束的时候在注册表生成项和键值

prototype NnllReg(); //声明函数
function OnEnd()
begin    
 //修改注册表
 NnllReg();
end;

这样注册的项和键值，在卸载的时候，项和键是保留的，动态的值会被删除，静态的值会保留，重新安装的时候，值会被更新

我最后要说的是RegDBSetKeyValueEx函数，因为在《InstallShield内部库函数全集中文版》里有一句话

szName指定要被设置的数值数的数值名。为设置在szKey指定的项的缺省值，给该参数传递一个空字符串。

我的阅读能力很差，所以我一直设置SzName=""，所以我一直注册不到键值，我在注册子项，上面我记录的李木勺的两句话，就是这两句话，我想到这个

如果szNumName=""，建的是子项，szKey，默认值是szNumValue

如果szNumName="键的名字"，建的是szKey下面的键值，默认值是szNumValue

在is的帮助里，有这样的例子：

// Create a key to test.
    szKey = "TestKey";
    if (RegDBCreateKeyEx (szKey, "") < 0) then
        MessageBox ("RegDBCreateKeyEx failed.", SEVERE);
        abort;
    endif;
    // Set up parameters for call to RegDBSetKeyValueEx.
    szNumName  = "TestValue";
    szNumValue = "12345";
    nType      = REGDB_NUMBER;
    nSize      = -1;
    // Set a key name and a value associated with it.
    if (RegDBSetKeyValueEx (szKey, szNumName, nType, szNumValue, nSize) < 0) then
        MessageBox ("RegDBSetKeyValueEx failed.", SEVERE);
        abort;
    else
        // Display what RegDBSetKeyValueEx has done.
        szMsg = "%s set to: %s";
        SprintfBox (INFORMATION, TITLE, szMsg, szNumName, szNumValue);
    endif;

如果我在上个星期按F1的时候，我看了这个例子，我也会想到要怎么用，我没有看，因为我以为我有《InstallShield内部库函数全集中文版》

最好的帮助是F1