installshield修改注册表

 1.修改注册表

prototype int changreg();

function int changreg() 
    number nRootKey,nType,nSize;
    string szKey,szNumName;
    STRING szNumValue;
    int res;
begin   
    //启用IE的对未可信的ActiveX初始化...选项
    nRootKey = HKEY_CURRENT_USER;
    RegDBSetDefaultRoot (nRootKey);//置根为nRootKey
    //注册子项
    szKey="Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\2";
    nType=REGDB_NUMBER;
    nSize=4;
    //注册安装路径
    szNumName="1201";
    szNumValue="0";
    res = RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    if(res < 0) then
        MessageBox("允许初始化未授信ActiveX出错!", WARNING);
    endif;
   
    szNumName="1209";   //允许Scriptlet
    res = RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    if(res < 0) then
        MessageBox("修改IE注册表出错!", WARNING);
    endif; 
    /*************************************************************************/
     szNumName="1201";
     szKey="Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\Zones\\3";
      res = RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    if(res < 0) then
        MessageBox("允许初始化未授信ActiveX出错!!", WARNING);
    endif;
   
    szNumName="1209";   //允许Scriptlet
    res = RegDBSetKeyValueEx(szKey,szNumName,nType,szNumValue,nSize);
    if(res < 0) then
        MessageBox("修改IE注册表出错!", WARNING);
    endif; 
 
    return 0;
end;

 

2. 自定义带参函数

 

prototype int RunExe(STRING); //定义参数的时候不能有变量名，只要变量类型

//fileName是最终的绝对路径
function int RunExe(fileName)   //直接写参数名,很变态的语法
begin    
 
    if (LaunchAppAndWait(fileName, "", WAIT) < 0) then    //指定可执行文件,第二个参数是exe的输入参数，一般为""
      MessageBox("视屏解码库安装出错！",WARNING);     
    endif;
   
end;

 

3.判断是不是第一次安装,第一次安装 MAINTENANCE为false,如果是维护的话MAINTENANCE为true

  if ( !MAINTENANCE ) then
      MessageBox("安装", WARNING);
   endif;