From ff71d04495e7f8b68c0a6e6067263b91ac6a9a89 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E8=93=9D=E7=82=B9lilac?= <yourena0528@gmail.com>
Date: Thu, 31 Dec 2020 15:42:16 +0800
Subject: [PATCH] =?UTF-8?q?=E6=89=A9=E5=85=85=E5=AD=97=E5=85=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../Resources/Texts/EnhanceMenusDic.xml       | 42 +++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/ContextMenuManager/Properties/Resources/Texts/EnhanceMenusDic.xml b/ContextMenuManager/Properties/Resources/Texts/EnhanceMenusDic.xml
index 3eaa5ae..6cc6104 100644
--- a/ContextMenuManager/Properties/Resources/Texts/EnhanceMenusDic.xml
+++ b/ContextMenuManager/Properties/Resources/Texts/EnhanceMenusDic.xml
@@ -262,4 +262,46 @@ Tip属性为鼠标悬浮在开关上时的提示信息，从每个Item节点开
       </Item>
     </Shell>
   </Image>
+
+  <DLL Text='DLL文件' Icon='imageres.dll,-67' RegPath='HKEY_CLASSES_ROOT\SystemFileAssociations\.dll'>
+    <Shell>
+      <Item KeyName='Register'>
+        <Value>
+          <REG_SZ MUIVerb='注册 DLL'/>
+        </Value>
+        <SubKey>
+          <Command Default='mshta vbscript:createobject("shell.application").shellexecute("regsvr32","%1","","runas",1)(close)'/>
+        </SubKey>
+      </Item>
+      <Item KeyName='UnRegister'>
+        <Value>
+          <REG_SZ MUIVerb='注销 DLL'/>
+        </Value>
+        <SubKey>
+          <Command Default='mshta vbscript:createobject("shell.application").shellexecute("regsvr32","/u %1","","runas",1)(close)'/>
+        </SubKey>
+      </Item>
+    </Shell>
+  </DLL>
+
+  <OCX Text='OCX文件' Icon='imageres.dll,-67' RegPath='HKEY_CLASSES_ROOT\SystemFileAssociations\.ocx'>
+    <Shell>
+      <Item KeyName='Register'>
+        <Value>
+          <REG_SZ MUIVerb='注册 OCX'/>
+        </Value>
+        <SubKey>
+          <Command Default='mshta vbscript:createobject("shell.application").shellexecute("regsvr32","%1","","runas",1)(close)'/>
+        </SubKey>
+      </Item>
+      <Item KeyName='UnRegister'>
+        <Value>
+          <REG_SZ MUIVerb='注销 OCX'/>
+        </Value>
+        <SubKey>
+          <Command Default='mshta vbscript:createobject("shell.application").shellexecute("regsvr32","/u %1","","runas",1)(close)'/>
+        </SubKey>
+      </Item>
+    </Shell>
+  </OCX>
 </Data>
\ No newline at end of file