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

张兴康

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

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

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

4、在On Preload事件中插入下列代码：

1. --写注册表，支持网页调用客户端
   
2. result = Registry.DoesKeyExist(HKEY_CLASSES_ROOT, "Delit");
   
3. 
   
4. if (result) then
   
5.         Registry.DeleteKey(HKEY_CLASSES_ROOT, "Delit");
   
6. 
   
7. end
   
8. 
   
9. Registry.CreateKey(HKEY_CLASSES_ROOT, "Delit");
   
10. Registry.CreateKey(HKEY_CLASSES_ROOT, "Delit\\DefaultIcon");
    
11. Registry.CreateKey(HKEY_CLASSES_ROOT, "Delit\\shell\\open\\command");
    
12. 
    
13. 
    
14. strPath = String.Concat(SessionVar.Expand("%AppFolder%"), "\\DLSOFT.exe");
    
15. 
    
16.    
    
17. Registry.SetValue(HKEY_CLASSES_ROOT,"Delit","","URL: Delit Protocol 协议",REG_SZ);
    
18. Registry.SetValue(HKEY_CLASSES_ROOT,"Delit","URL Protocol",strPath,REG_SZ);
    
19. Registry.SetValue(HKEY_CLASSES_ROOT,"Delit\\DefaultIcon","",String.Concat(strPath,",1"),REG_SZ);
    
20. Registry.SetValue(HKEY_CLASSES_ROOT,"Delit\\shell\\open\\command","",String.Concat("\"",String.Concat(strPath,"\" \"%1\"")),REG_SZ);

复制代码

万望

作用具体，谢谢，我看到晕晕地

张兴康

万望 发表于 2016-4-28 22:45
作用具体，谢谢，我看到晕晕地

开头都说明了，这是安装是写入注册表

万望

不错，不错哦

张兴康

万望 发表于 2016-8-3 09:18
不错，不错哦

开头不是还说看着晕晕的么

张兴康

万望 发表于 2016-8-3 09:18
不错，不错哦

开头不是还说看着晕晕的么

shitou3389

我想问问，平台在哪下啊，你们都是怎么下的

张兴康

shitou3389 发表于 2016-8-9 15:16
我想问问，平台在哪下啊，你们都是怎么下的

你好，如果对平台感兴趣，可以加入：度量开发平台技术VIP 206081043 ；这个群，找群主或管理员给你平台包

张兴康

shitou3389 发表于 2016-8-9 15:16
我想问问，平台在哪下啊，你们都是怎么下的

或者通过下面这个地址下载平台包： http://url.cn/291HQyy

万望