installshield修改注册表

最新推荐文章于 2019-12-30 17:35:19 发布

96掌门师兄

最新推荐文章于 2019-12-30 17:35:19 发布

阅读量3.2k

点赞数

文章标签： microsoft prototype internet string function windows

本文链接：https://blog.csdn.net/xiaoxiaoyu85/article/details/6952738

版权

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;