平台安装时写入注册表的打包方法

来源：互联网发布：周润发占中言论知乎编辑：程序博客网时间：2024/05/17 06:32

最近根据客户要求，在用户下载办公系统安装包安装后，将直接从网页登陆，这需要在注册表中写入delit项，在此之前平台一直采用的是安装好后，从平台提供的登陆界面登陆然后在向注册表添加项。

要解决这个问题，只能在用户安装好客户端后就自动的向注册表写入delit项。下面是实现方法：
1、我们使用下图中所示工具进行安装包打包：

2、具体打包步骤可以参照http://plat.delit.cn/article-1-167.html
3、点击安装之后——双击结束安装——点击操作——选择On Preload事件，如下图所示：

<span style="font-family: Tahoma, Helvetica, SimSun, sans-serif; background-color: rgb(255, 255, 255);">4、在On Preload事件中插入下列代码：</span>

--写注册表，支持网页调用客户端result = Registry.DoesKeyExist(HKEY_CLASSES_ROOT, "Delit");if (result) then        Registry.DeleteKey(HKEY_CLASSES_ROOT, "Delit");endRegistry.CreateKey(HKEY_CLASSES_ROOT, "Delit");Registry.CreateKey(HKEY_CLASSES_ROOT, "Delit\\DefaultIcon");Registry.CreateKey(HKEY_CLASSES_ROOT, "Delit\\shell\\open\\command");strPath = String.Concat(SessionVar.Expand("%AppFolder%"), "\\DLSOFT.exe");    Registry.SetValue(HKEY_CLASSES_ROOT,"Delit","","URL: Delit Protocol 协议",REG_SZ);Registry.SetValue(HKEY_CLASSES_ROOT,"Delit","URL Protocol",strPath,REG_SZ);Registry.SetValue(HKEY_CLASSES_ROOT,"Delit\\DefaultIcon","",String.Concat(strPath,",1"),REG_SZ);Registry.SetValue(HKEY_CLASSES_ROOT,"Delit\\shell\\open\\command","",String.Concat("\"",String.Concat(strPath,"\" \"%1\"")),REG_SZ);

原文地址:http://bbs.delit.cn/thread-822-1-1.html

转载请注明出处:

撰写人:度量科技www.delit.cn

0 0