Modificacion humana

Una pequeña estupidez que marca la diferencia entre la humanidad y el ser una maquina

Author: Urfenox

DevToolMenu/Complementos.vb

@@ -31,6 +31,7 @@ Module Complementos
                     Registry.CurrentUser.CreateSubKey(Ruta1)
                     RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta1, True)
                 End If
+                RegeditWriter1.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String)
                 RegeditWriter1.SetValue("MUIVerb", "Open in", RegistryValueKind.String)
                 RegeditWriter1.SetValue("subcommands", "", RegistryValueKind.String)
 
@@ -136,6 +137,7 @@ Module Complementos
                     Registry.CurrentUser.CreateSubKey(Ruta1)
                     RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta1, True)
                 End If
+                RegeditWriter1.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String)
                 RegeditWriter1.SetValue("MUIVerb", "Open in", RegistryValueKind.String)
                 RegeditWriter1.SetValue("subcommands", "", RegistryValueKind.String)
 
@@ -237,7 +239,7 @@ Module Complementos
                 RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta1, True)
             End If
             RegeditWriter1.SetValue("", "Get Location", RegistryValueKind.String)
-            'RegeditWriter1.SetValue("Icon", "ruta_a_un_icono_aqui", RegistryValueKind.String)
+            RegeditWriter1.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String)
 
             Dim RegeditWriter2 As RegistryKey
             RegeditWriter2 = Registry.CurrentUser.OpenSubKey(Ruta2, True)
@@ -280,6 +282,7 @@ Module Complementos
                     Registry.CurrentUser.CreateSubKey(Ruta1)
                     RegeditWriter1 = Registry.CurrentUser.OpenSubKey(Ruta1, True)
                 End If
+                RegeditWriter1.SetValue("Icon", Application.ExecutablePath, RegistryValueKind.String)
                 RegeditWriter1.SetValue("MUIVerb", "Open with", RegistryValueKind.String)
                 RegeditWriter1.SetValue("subcommands", "", RegistryValueKind.String)
 

DevToolMenu/My Project/AssemblyInfo.vb

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' mediante el carácter '*', como se muestra a continuación:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("15.08.20.21")>
+<Assembly: AssemblyVersion("1.0.1.0")>
+<Assembly: AssemblyFileVersion("22.08.20.21")>
 <Assembly: NeutralResourcesLanguage("en")>