VBScript的PDF转换工具.7.注册表

注册表操作函数

这里的注册表操作函数主要是用于添加/删除右键菜单。关于右键菜单的原理，看看代码很容易明白的。

 

'=====================================================================' Registry'=====================================================================Function UpdateReg(reg) Dim extList : extList = GetExtList() If UBound(extList) > 0 Then Dim RegKeyValue Dim assocKey, assocKeyVal Dim cmdKey, cmdKeyVal RegKeyValue = Replace(RegKeyValueTemplate, RegTempKey_ScriptPath, WScript.ScriptFullName) For Each ext In extList assocKey = Replace(AssociateKeyTemplate, RegTempKey_Ext, ext) assocKeyVal = ShellObj.RegRead(assocKey) If assocKeyVal <> "" Then If assocKeyVal <> "" Then cmdKey = Replace(CommandKeyTemplate, RegTempKey_AssocKeyVal, assocKeyVal) On Error Resume Next cmdKeyVal = ShellObj.RegRead(cmdKey) If cmdKeyVal <> "" Then ShellObj.RegDelete(cmdKey) End If If reg Then ShellObj.RegWrite cmdKey, RegKeyValue, RegKeyType End If End If End If Next End IfEnd FunctionFunction Register() UpdateReg(True) PopupMsg(STR_RegSuccessfully) DisplayHelp()End FunctionFunction Unregister() UpdateReg(False) PopupMsg(STR_UnregSuccessfully)End Function