Fully implemented explorer context menu integration.

You can now enable the option from the Info window (which also looks a bit nicer now).

Author: Iridium-IO

WindowsApp1/App.config

@@ -2,6 +2,9 @@
 <configuration>
     <configSections>
 
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="CompactGUI.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
     </configSections>
     <startup>
         <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
@@ -12,4 +15,11 @@
     <add key="EnableWindowsFormsHighDpiAutoResizing" value="false" />
   </System.Windows.Forms.ApplicationConfigurationSection>
 
+  <userSettings>
+    <CompactGUI.My.MySettings>
+      <setting name="IsContextMenuEnabled" serializeAs="String">
+        <value>False</value>
+      </setting>
+    </CompactGUI.My.MySettings>
+  </userSettings>
 </configuration>

WindowsApp1/Compact.Designer.vb

@@ -5,7 +5,7 @@ Imports System.Text.RegularExpressions
 Imports Ookii.Dialogs                                                                          'Uses Ookii Dialogs for the non-archaic filebrowser dialog. http://www.ookii.org/Software/Dialogs
 
 Public Class Compact
-    Dim version = "1.2.1"
+    Dim version = "1.2.2"
     Private WithEvents MyProcess As Process
     Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)
 
@@ -99,19 +99,21 @@ Public Class Compact
 
         RCMenu.WriteLocRegistry()
 
-
-
-
         progressTimer.Start()                                                                   'Starts a timer that keeps track of changes during any operation.
 
+        For Each arg In My.Application.CommandLineArgs
+            If arg.ToString IsNot Nothing Then
+                SelectFolder(arg, "cmdlineargs")
+            End If
+        Next
 
     End Sub
 
 
 
 
     Private Sub ShowInfoPopup_Click(sender As Object, e As EventArgs) Handles showinfopopup.Click
-        Info.semVersion.Text = "Version: " + version
+        Info.semVersion.Text = "V " + version
         Info.Show()
 
     End Sub
@@ -217,7 +219,16 @@ Public Class Compact
 
         folderChoice.ShowDialog()
 
-        Dim wDString = folderChoice.SelectedPath
+        SelectFolder(folderChoice.SelectedPath, "button")
+
+        folderChoice.Dispose()
+
+    End Sub
+
+
+
+    Private Sub SelectFolder(selectedDir As String, senderID As String)
+        Dim wDString = selectedDir
 
         If wDString.Contains("C:\Windows") Then                                                 'Makes sure you're not trying to compact the Windows directory. I should Regex this to catch all possible drives hey?
 
@@ -265,20 +276,15 @@ Public Class Compact
                 End If
 
             Else
-                Console.Write("No folder selected")
+                If senderID = "button" Then Console.Write("No folder selected")
 
             End If
 
 
-        End If
-
-        folderChoice.Dispose()
-
+            End If
     End Sub
 
 
-
-
     Dim compactArgs As String
 
 
@@ -717,15 +723,4 @@ Public Class Compact
 
 
 
-
-
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        RCMenu.RunAsAdmin()
-
-
-    End Sub
-
-
-
-
 End Class

WindowsApp1/Compact.vb

@@ -3,11 +3,23 @@
         Process.Start("https://github.com/ImminentFate/CompactGUI/releases")
     End Sub
 
-    Private Sub checkEnableRCMenu_CheckedChanged(sender As Object, e As EventArgs) Handles checkEnableRCMenu.CheckedChanged
+    Private Sub checkEnableRCMenu_CheckedChanged(sender As Object, e As EventArgs) Handles checkEnableRCMenu.Click
         If checkEnableRCMenu.Checked = True Then
             RCMenu.WriteRCMenuRegistry()
-        Else
 
+
+        ElseIf checkEnableRCMenu.Checked = False Then
+            RCMenu.DeleteRCMenuRegistry()
+
+        End If
+
+    End Sub
+
+    Private Sub Info_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        If My.Settings.IsContextMenuEnabled = True Then
+            checkEnableRCMenu.Checked = True
+        Else
+            checkEnableRCMenu.Checked = False
         End If
 
     End Sub

WindowsApp1/Info.Designer.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.2.1.0")>
-<Assembly: AssemblyFileVersion("1.2.1.0")>
+<Assembly: AssemblyVersion("1.2.2.0")>
+<Assembly: AssemblyFileVersion("1.2.2.0")>

WindowsApp1/Info.vb

@@ -1,5 +1,9 @@
 <?xml version='1.0' encoding='utf-8'?>
-<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
   <Profiles />
-  <Settings />
+  <Settings>
+    <Setting Name="IsContextMenuEnabled" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+  </Settings>
 </SettingsFile>