首页 > 应用开发 > IT综合 > 平台安装时写入注册表的打包方法
--写注册表,支持网页调用客户端
result = Registry.DoesKeyExist(HKEY_CLASSES_ROOT, "Delit");
if (result) then
Registry.DeleteKey(HKEY_CLASSES_ROOT, "Delit");
end
Registry.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%"), "");
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);
来自 “ ITPUB博客 ” ,链接:https://blog.itpub.net/328153/viewspace-2065247/ ,如需转载,请注明出处,否则将追究法律责任。