Personalization Restore Classic File Explorer with Ribbon in Windows 11

[HKEY_CURRENT_USER\Software\Classes\CLSID\{2aa9162e-c906-4dd9-ad0b-3d24a8eef5a0}]

[HKEY_CURRENT_USER\Software\Classes\CLSID\{2aa9162e-c906-4dd9-ad0b-3d24a8eef5a0}\InProcServer32]
@=""

[HKEY_CURRENT_USER\Software\Classes\CLSID\{6480100b-5a83-4d1e-9f69-8ae5a88e9a33}]

[HKEY_CURRENT_USER\Software\Classes\CLSID\{6480100b-5a83-4d1e-9f69-8ae5a88e9a33}\InProcServer32]
@=""

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\ShellBrowser]
"ITBar7Layout"=hex:13,00,00,00,00,00,00,00,00,00,00,00,20,00,00,00,10,00,01,00,\
  00,00,00,00,01,00,00,00,01,07,00,00,5e,01,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00

@echo off
echo Creating registry entries...

:: Add registry keys
reg add "HKCU\Software\Classes\CLSID\{2aa9162e-c906-4dd9-ad0b-3d24a8eef5a0}" /ve /t REG_SZ /d "CLSID_ItemsViewAdapter" /f
reg add "HKCU\Software\Classes\CLSID\{2aa9162e-c906-4dd9-ad0b-3d24a8eef5a0}\InProcServer32" /ve /t REG_SZ /d "C:\Windows\System32\Windows.UI.FileExplorer.dll_" /f
reg add "HKCU\Software\Classes\CLSID\{2aa9162e-c906-4dd9-ad0b-3d24a8eef5a0}\InProcServer32" /v "ThreadingModel" /t REG_SZ /d "Apartment" /f

reg add "HKCU\Software\Classes\CLSID\{6480100b-5a83-4d1e-9f69-8ae5a88e9a33}" /ve /t REG_SZ /d "File Explorer Xaml Island View Adapter" /f
reg add "HKCU\Software\Classes\CLSID\{6480100b-5a83-4d1e-9f69-8ae5a88e9a33}\InProcServer32" /ve /t REG_SZ /d "C:\Windows\System32\Windows.UI.FileExplorer.dll_" /f
reg add "HKCU\Software\Classes\CLSID\{6480100b-5a83-4d1e-9f69-8ae5a88e9a33}\InProcServer32" /v "ThreadingModel" /t REG_SZ /d "Apartment" /f

echo.
echo Press any key to restart Explorer.exe for changes to take effect...
pause >nul

:: Restart Explorer
taskkill /f /im explorer.exe && start explorer

echo Done.
exit

@echo off
echo Restoring Windows 11 File Explorer...

:: Remove registry modifications
reg delete "HKCU\Software\Classes\CLSID\{2aa9162e-c906-4dd9-ad0b-3d24a8eef5a0}" /f
reg delete "HKCU\Software\Classes\CLSID\{6480100b-5a83-4d1e-9f69-8ae5a88e9a33}" /f

echo.
echo Press any key to restart Explorer.exe for changes to take effect...
pause >nul

:: Restart Explorer
taskkill /f /im explorer.exe && start explorer

echo Windows 11 Explorer restored.
exit

# Redirect all error output globally to surpress console errors
$ErrorActionPreference = "SilentlyContinue"

# Ensure the script is running in STA mode
if ([System.Threading.Thread]::CurrentThread.ApartmentState -ne [System.Threading.ApartmentState]::STA) {
    throw "Script must be run in Single Threaded Apartment (STA) mode. Use 'powershell -STA -File script.ps1'."
}

# Import necessary assemblies for GUI
Add-Type -AssemblyName System.Windows.Forms
Add-Type -AssemblyName System.Drawing

# Define paths for configuration
$localAppData = [System.Environment]::GetFolderPath('LocalApplicationData')
$configDir = Join-Path $localAppData "RibUIEx"
$configFile = Join-Path $configDir "config.txt"

# Ensure the configuration directory exists
if (-Not (Test-Path $configDir)) {
    New-Item -Path $configDir -ItemType Directory | Out-Null
}

# Set default values
$theme = "Dark"
$autoLaunch = $false
$checkboxChecked = $false

# Load settings from the configuration file
if (Test-Path $configFile) {
    try {
        $configContent = Get-Content -Path $configFile -Raw | ConvertFrom-Json
        if ($configContent.Theme -eq "Light" -or $configContent.Theme -eq "Dark") {
            $theme = $configContent.Theme
        }
        if ($configContent.AutoLaunch -eq $true -or $configContent.AutoLaunch -eq $false) {
            $autoLaunch = $configContent.AutoLaunch
        }
        if ($null -ne $configContent.CheckboxState) {
            $checkboxChecked = [bool]$configContent.CheckboxState
        }
    } catch {
        Write-Host "Error loading configuration, using defaults." # Debugging output
    }
} else {
    Write-Host "Config file not found, using defaults." # Debugging output
}

# Save the current configuration
function Save-Settings {
    param (
        [string]$currentTheme,
        [bool]$currentAutoLaunch,
        [bool]$isChecked
    )
    try {
        $settings = @{
            Theme = $currentTheme
            AutoLaunch = $currentAutoLaunch
            CheckboxState = $isChecked
        }
        $settings | ConvertTo-Json -Depth 1 | Set-Content -Path $configFile -Force
        Write-Host "Settings saved: Theme=$currentTheme, AutoLaunch=$currentAutoLaunch, Checkbox=$isChecked" # Debugging output
    } catch {
        Write-Host "Error saving settings: $($_.Exception.Message)" # Debugging output
    }
}
# Save settings when form is closing
$form.add_FormClosing({
    Save-Settings -currentTheme $theme -currentAutoLaunch $autoLaunch -isChecked $autoLaunchCheckbox.Checked
})


# Check for existing configuration file and read the theme
if (Test-Path $configFile) {
    $storedTheme = Get-Content -Path $configFile -Raw
    if ($storedTheme -match "Light") {
        $theme = "Light"
    }
}

# Create the tooltip instance
$tooltip = New-Object System.Windows.Forms.ToolTip
$tooltip.AutoPopDelay = 4000  # Time tooltip remains visible (in milliseconds)
$tooltip.InitialDelay = 2500 # Delay before tooltip appears after hovering (in milliseconds)
$tooltip.ReshowDelay = 10000   # Delay before re-showing tooltip after it disappears
$tooltip.ShowAlways = $true  # Ensure tooltips show even when the control is inactive

# Hide the console window
Add-Type -TypeDefinition @"
using System;
using System.Runtime.InteropServices;
public class Win32 {
    [DllImport("user32.dll")]
    public static extern int ShowWindow(IntPtr hWnd, int nCmdShow);
    [DllImport("kernel32.dll")]
    public static extern IntPtr GetConsoleWindow();
}
"@

$consolePtr = [Win32]::GetConsoleWindow()
if ($consolePtr -ne [IntPtr]::Zero) {
    [Win32]::ShowWindow($consolePtr, 0) # 0 = Hide the console, 5 = Show the console
}

# Define the PathHistory directory and history file
$localAppData = [System.Environment]::GetFolderPath('LocalApplicationData')
$historyDir = Join-Path $localAppData "RibUIEx"
$historyFile = Join-Path $historyDir "ExPostHist.txt"

# Ensure the PathHistory directory exists
if (-Not (Test-Path $historyDir)) {
    New-Item -Path $historyDir -ItemType Directory | Out-Null
}

# Ensure the history file exists
if (-Not (Test-Path $historyFile)) {
    New-Item -Path $historyFile -ItemType File | Out-Null
}

# Import history into memory
$historyItems = Get-Content -Path $historyFile | Sort-Object | Where-Object { -Not [string]::IsNullOrWhiteSpace($_) }

# Function to show themed dialog
function Show-ThemedDialog {
    param (
        [string]$message,
        [string]$title,
        [bool]$isError
    )

    $dialogForm = New-Object System.Windows.Forms.Form
    $dialogForm.Text = $title
    $dialogForm.Width = 300
    $dialogForm.Height = 150
    $dialogForm.StartPosition = [System.Windows.Forms.FormStartPosition]::Manual

    # Calculate the center of the main form and position the dialog there
    $centerX = $form.Location.X + [Math]::Floor(($form.Width - $dialogForm.Width) / 2)
    $centerY = $form.Location.Y + [Math]::Floor(($form.Height - $dialogForm.Height) / 2)
    $dialogForm.Location = New-Object System.Drawing.Point($centerX, $centerY)

    $dialogForm.TopMost = $true
    $dialogForm.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedDialog
    $dialogForm.MaximizeBox = $false
    $dialogForm.MinimizeBox = $false
    $dialogForm.BackColor = if ($theme -eq "Light") { [System.Drawing.Color]::White } else { [System.Drawing.Color]::Black }

    $messageLabel = New-Object System.Windows.Forms.Label
    $messageLabel.Text = $message
    $messageLabel.AutoSize = $true
    $messageLabel.ForeColor = if ($theme -eq "Light") { [System.Drawing.Color]::Black } else { [System.Drawing.Color]::White }
    $messageLabel.Font = New-Object System.Drawing.Font("Consolas", 11)
    $messageLabel.TextAlign = [System.Drawing.ContentAlignment]::MiddleCenter
    $verticalPosition = 25 # Set vertical position manually
    $messageLabel.Location = New-Object System.Drawing.Point(
    ([Math]::Floor(($dialogForm.ClientSize.Width - $messageLabel.PreferredWidth) / 2)), # Correctly center horizontally
    $verticalPosition # Use manually set vertical position
    )
    $dialogForm.Controls.Add($messageLabel)

    $okButton = New-Object System.Windows.Forms.Button
    $okButton.Text = "OK"
    $okButton.Size = New-Object System.Drawing.Size(85, 30)
    $okButton.BackColor = if ($theme -eq "Light") { [System.Drawing.Color]::White } else { [System.Drawing.Color]::Black }
    $okButton.ForeColor = if ($theme -eq "Light") { [System.Drawing.Color]::Black } else { [System.Drawing.Color]::White }
    $okButton.Font = New-Object System.Drawing.Font("Consolas", 11)
    $verticalPosition = 65 # Set vertical position manually
    $okButton.Location = New-Object System.Drawing.Point(
    ([Math]::Floor(($dialogForm.ClientSize.Width - $okButton.Width) / 2)), # Correctly center horizontally
    $verticalPosition # Use manually set vertical position
    )

    $okButton.Add_Click({ $dialogForm.Close() })
    $dialogForm.Controls.Add($okButton)

    $dialogForm.ShowDialog()
}

# Create a form
$form = New-Object System.Windows.Forms.Form
$form.Text = "Ribbon UI Explorer Launcher"
$form.Width = 400
$form.Height = 275

# Center the form on the screen
$form.StartPosition = [System.Windows.Forms.FormStartPosition]::CenterScreen
$form.TopMost = $true # Always in front
$form.BackColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::White
} else {
    [System.Drawing.Color]::Black
}

$form.Add_Shown({
    Start-Sleep -Milliseconds 100

    # Calculate the coordinates of the dropdown arrow relative to the screen
    $comboBoxArrowX = $form.Location.X + $dropdown.Location.X + $dropdown.Width - 8
    $comboBoxArrowY = $form.Location.Y + $dropdown.Location.Y + [Math]::Floor($dropdown.Height / 2) + 22 # Add 5 pixels for a slight downward adjustment

    # Move the cursor to the adjusted position
    [System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point($comboBoxArrowX, $comboBoxArrowY)
})

# Lock the dimensions of the main form
$form.FormBorderStyle = [System.Windows.Forms.FormBorderStyle]::FixedDialog
$form.MaximizeBox = $false
$form.MinimizeBox = $false

# Set font to Consolas 11pt
$font = New-Object System.Drawing.Font("Consolas", 11)

# Add a label for the dropdown
$dropdownLabel = New-Object System.Windows.Forms.Label
$dropdownLabel.Text = "Choose Destination Path:"
$dropdownLabel.AutoSize = $true
$dropdownLabel.ForeColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::Black
} else {
    [System.Drawing.Color]::White
}
$dropdownLabel.Font = $font
$dropdownLabel.Location = New-Object System.Drawing.Point(40, 10)
$form.Controls.Add($dropdownLabel)

# Create a dropdown (ComboBox)
$dropdown = New-Object System.Windows.Forms.ComboBox
$dropdown.Width = 300
$dropdown.Location = New-Object System.Drawing.Point(40, 40)
$dropdown.BackColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::White
} else {
    [System.Drawing.Color]::Black
}
$dropdown.ForeColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::Black
} else {
    [System.Drawing.Color]::White
}
$dropdown.Font = $font
$dropdown.DropDownStyle = [System.Windows.Forms.ComboBoxStyle]::DropDownList # Only dropdown selection allowed

# Define known CLSIDs to the dropdown
$clsids = @{
    "This PC" = "shell:::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
    "C:\ (or SystemDrive)" = "%systemdrive%\"
    "User Folder" = "shell:::{59031a47-3f72-44a7-89c5-5595fe6b30ee}"
    "SystemDrive\Windows\System32" = "%windir%\System32"
    "Desktop" = "shell:::{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}"
    "Documents" = "shell:::{A8CDFF1C-4878-43be-B5FD-F8091C1C60D0}"
    "Downloads" = "shell:::{088e3905-0323-4b02-9826-5d99428e115f}"
    "Music" = "shell:::{1CF1260C-4DD0-4ebb-811F-33C572699FDE}"
    "Pictures" = "shell:::{24ad3ad4-a569-4530-98e1-ab02f9417aa8}"
    "Videos" = "shell:::{A0953C92-50DC-43bf-BE83-3742FED03C9C}"
    "Home" = "shell:::{F874310E-B6B7-47DC-BC84-B9E6B38F5903}"
    "Gallery" = "shell:::{E88865EA-0E1C-4E20-9AA6-EDCD0212C87C}"
    "Libraries" = "shell:::{031E4825-7B94-4dc3-B131-E946B44C8DD5}"
    "Recycle Bin" = "shell:::{645FF040-5081-101B-9F08-00AA002F954E}"

}

# Populate Dropdown Alphabetically by Stored Name
$sortedKeys = $clsids.Keys | Sort-Object | ForEach-Object { $_ } # Ensure Explicit Array-Like Output
$dropdown.Items.AddRange($sortedKeys)

# Add separator line to indicate imported paths
$separator = "-" * 37
$dropdown.Items.Add($separator)

# Import history into the dropdown and show actual paths
foreach ($item in $historyItems) {
    $dropdown.Items.Add($item) # Add actual path directly
}

# Add the dropdown to the form
$form.Controls.Add($dropdown)

# Attach event to update the tooltip dynamically based on selected item
$dropdown.add_SelectedIndexChanged({
    # Get the currently selected item
    $selectedItem = $dropdown.SelectedItem

    # Check if the selected item is a custom path (not CLSID and not the separator)
    if (-not [string]::IsNullOrWhiteSpace($selectedItem) -and -not $clsids.ContainsKey($selectedItem) -and $selectedItem -ne $separator) {
        # Show tooltip for custom paths
        $tooltip.SetToolTip($dropdown, "Custom Path: $selectedItem")
    } else {
        # Clear tooltip for predefined paths or separators
        $tooltip.SetToolTip($dropdown, "")
    }
})

# Ensure the tooltip is updated and only shown after the dropdown closes
$dropdown.add_DropDownClosed({
    $selectedItem = $dropdown.SelectedItem

    # Refresh tooltip only for custom paths
    if (-not [string]::IsNullOrWhiteSpace($selectedItem) -and -not $clsids.ContainsKey($selectedItem) -and $selectedItem -ne $separator) {
        $tooltip.SetToolTip($dropdown, "Custom Path: $selectedItem")
    } else {
        # Clear tooltip for predefined paths or separators
        $tooltip.SetToolTip($dropdown, "")
    }
})

# Create Checkbox (Remove Label Text)
$autoLaunchCheckbox = New-Object System.Windows.Forms.CheckBox
$autoLaunchCheckbox.Text = "" # Remove text from the checkbox
$autoLaunchCheckbox.AutoSize = $false # Allows manual resizing
$autoLaunchCheckbox.Size = New-Object System.Drawing.Size(16, 16) # Adjust size of checkbox
$autoLaunchCheckbox.Location = New-Object System.Drawing.Point(275, 157)
$autoLaunchCheckbox.TabIndex = 5  # Fifth in tab order

$autoLaunchCheckbox.Checked = $checkboxChecked # Load the saved state
$form.Controls.Add($autoLaunchCheckbox)

# Attach event to save checkbox state
$autoLaunchCheckbox.add_CheckedChanged({
    Save-Settings -currentTheme $theme -currentAutoLaunch $autoLaunch -isChecked $autoLaunchCheckbox.Checked
})

# Add a New Label for the Checkbox
$autoLaunchLabel = New-Object System.Windows.Forms.Label
$autoLaunchLabel.Text = " Auto`nLaunch"
$autoLaunchLabel.AutoSize = $true
$autoLaunchLabel.ForeColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::Black
} else {
    [System.Drawing.Color]::White
}
$autoLaunchLabel.Font = New-Object System.Drawing.Font("Consolas", 9)
$autoLaunchLabel.Location = New-Object System.Drawing.Point(260, 183)

$form.Controls.Add($autoLaunchLabel)

# Update dropdown selection event to handle Auto Launch
$dropdown.add_SelectedIndexChanged({
    $selectedItem = $dropdown.SelectedItem
    # Prevent action when the separator is selected
    if ($selectedItem -eq $separator) {
        $dropdown.SelectedIndex = -1 # Reset selection
        return
    }

    # Check if Auto Launch is enabled
    if ($autoLaunchCheckbox.Checked) {
        $okButton.PerformClick() # Simulate pressing the OK button
    }
})

# Handle the dropdown selection event
$dropdown.add_SelectedIndexChanged({
    $selectedItem = $dropdown.SelectedItem
    # Prevent action when the separator is selected
    if ($selectedItem -eq $separator) {
        # Ignore clicks on the separator
        $dropdown.SelectedIndex = -1 # Reset selection
        return
    }
})

# Add label for custom path text box
$customPathLabel = New-Object System.Windows.Forms.Label
$customPathLabel.Text = "Specify Custom Destination Path:"
$customPathLabel.AutoSize = $true
$customPathLabel.ForeColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::Black
} else {
    [System.Drawing.Color]::White
}
$customPathLabel.Font = $font
$customPathLabel.Location = New-Object System.Drawing.Point(40, 80)
$form.Controls.Add($customPathLabel)

# Create a text field for custom path input (always visible now)
$customPathTextBox = New-Object System.Windows.Forms.TextBox
$customPathTextBox.Width = 300
$customPathTextBox.Location = New-Object System.Drawing.Point(40, 110)
$customPathTextBox.TabIndex = 1  # First in tab order
$customPathTextBox.BackColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::White
} else {
    [System.Drawing.Color]::Black
}
$customPathTextBox.ForeColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::Black
} else {
    [System.Drawing.Color]::White
}
$customPathTextBox.Font = $font
$form.Controls.Add($customPathTextBox)

# Add a vertical sliding toggle switch for theme (Light/Dark mode)
$themePanel = New-Object System.Windows.Forms.Panel
$themePanel.Width = 25
$themePanel.Height = 64
$themePanel.Location = New-Object System.Drawing.Point(70, 150)
$themePanel.BackColor = [System.Drawing.ColorTranslator]::FromHtml("#303030")
$themePanel.BorderStyle = [System.Windows.Forms.BorderStyle]::FixedSingle
$form.Controls.Add($themePanel)

$toggleButton = New-Object System.Windows.Forms.Label
$toggleButton.Width = 21
$toggleButton.Height = 30
$toggleButton.TabIndex = 2  # Second in tab order
$toggleButton.Location = New-Object System.Drawing.Point(1, 1) # Positioned at the top for Light mode
$toggleButton.Location = if ($theme -eq "Light") {
    New-Object System.Drawing.Point(1, 1) # Light mode position
} else {
    New-Object System.Drawing.Point(1, 30) # Dark mode position
}
$toggleButton.BackColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::White
} else {
    [System.Drawing.Color]::Black
}
$toggleButton.ForeColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::White
} else {
    [System.Drawing.Color]::Black
}
$toggleButton.TextAlign = [System.Drawing.ContentAlignment]::MiddleCenter
$toggleButton.Text = $theme
$toggleButton.Font = $font
$themePanel.Controls.Add($toggleButton)

# Add tooltip for toggleButton button
$tooltip.SetToolTip($toggleButton, "Toggle Light/Dark Theme")

# Add toggle functionality
$toggleButton.Add_Click({
    if ($toggleButton.Text -eq "Light") {
        # Change to Dark Mode
        $toggleButton.Text = "Dark"
        $toggleButton.BackColor = [System.Drawing.Color]::Black
        $toggleButton.ForeColor = [System.Drawing.Color]::Black
        $toggleButton.Location = New-Object System.Drawing.Point(1, 30) # Move toggle to the bottom
        $form.BackColor = [System.Drawing.Color]::Black
        $dropdownLabel.ForeColor = [System.Drawing.Color]::White
        $customPathLabel.ForeColor = [System.Drawing.Color]::White
        $dropdown.BackColor = [System.Drawing.Color]::Black
        $dropdown.ForeColor = [System.Drawing.Color]::White
        $customPathTextBox.BackColor = [System.Drawing.Color]::Black
        $customPathTextBox.ForeColor = [System.Drawing.Color]::White
        $deleteHistoryButton.BackColor = [System.Drawing.Color]::Black
        $deleteHistoryButton.ForeColor = [System.Drawing.Color]::Red
        $okButton.BackColor = [System.Drawing.Color]::Black
        $okButton.ForeColor = [System.Drawing.Color]::Lime
        $autoLaunchLabel.ForeColor = [System.Drawing.Color]::White # Update label text color
        $theme = "Dark"
        Set-Content -Path $configFile -Value $theme # Save preference to config file
    } else {
        # Change to Light Mode
        $toggleButton.Text = "Light"
        $toggleButton.BackColor = [System.Drawing.Color]::White
        $toggleButton.ForeColor = [System.Drawing.Color]::White
        $toggleButton.Location = New-Object System.Drawing.Point(1, 1) # Move toggle to the top
        $form.BackColor = [System.Drawing.Color]::White
        $dropdownLabel.ForeColor = [System.Drawing.Color]::Black
        $customPathLabel.ForeColor = [System.Drawing.Color]::Black
        $dropdown.BackColor = [System.Drawing.Color]::White
        $dropdown.ForeColor = [System.Drawing.Color]::Black
        $customPathTextBox.BackColor = [System.Drawing.Color]::White
        $customPathTextBox.ForeColor = [System.Drawing.Color]::Black
        $deleteHistoryButton.BackColor = [System.Drawing.Color]::White
        $deleteHistoryButton.ForeColor = [System.Drawing.Color]::Red
        $okButton.BackColor = [System.Drawing.Color]::White
        $okButton.ForeColor = [System.Drawing.Color]::Green
        $autoLaunchLabel.ForeColor = [System.Drawing.Color]::Black # Update label text color
        $theme = "Light"
        Set-Content -Path $configFile -Value $theme # Save preference to config file
    }
})

## Add "Delete Custom History" button
$deleteHistoryButton = New-Object System.Windows.Forms.Button
$deleteHistoryButton.Text = "x"
$deleteHistoryButton.TextAlign = [System.Drawing.ContentAlignment]::MiddleCenter
$deleteHistoryButton.Location = New-Object System.Drawing.Point(155, 190)
$deleteHistoryButton.Size = New-Object System.Drawing.Size(50, 25)
$deleteHistoryButton.BackColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::White
} else {
    [System.Drawing.Color]::Black
}
$deleteHistoryButton.ForeColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::Red
} else {
    [System.Drawing.Color]::Red
}
$deleteHistoryButton.Font = $font
$deleteHistoryButton.TabIndex = 4  # Fourth in tab order

# Add functionality to delete history and refresh dropdown
$deleteHistoryButton.Add_Click({
    if (Test-Path $historyFile) {
        Remove-Item $historyFile -Force
        Show-ThemedDialog -message "Custom Paths Deleted" -title "Success" -isError $false

        # Refresh the dropdown list after deletion
        $dropdown.Items.Clear() # Clear existing items
        $dropdown.Items.AddRange($clsids.Keys) # Repopulate with predefined CLSIDs
    } else {
        Show-ThemedDialog -message "No Custom Paths to Delete" -title "Error" -isError $true
    }
})

# Add the Delete Custom History button to the form
$form.Controls.Add($deleteHistoryButton)

# Add tooltip for deleteHistory button
$tooltip.SetToolTip($deleteHistoryButton, "Delete Stored Custom Paths")

# Create an OK button
$okButton = New-Object System.Windows.Forms.Button
$okButton.Text = ">"
$okButton.Location = New-Object System.Drawing.Point(155, 150)
$okButton.Size = New-Object System.Drawing.Size(50,25)
$okButton.BackColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::White
} else {
    [System.Drawing.Color]::Black
}
$okButton.ForeColor = if ($theme -eq "Light") {
    [System.Drawing.Color]::Green
} else {
    [System.Drawing.Color]::Lime
}
$okButton.Font = $font
$okButton.TabIndex = 3  # Third in tab order

# Add functionality to the OK button
$okButton.Add_Click({
    # Determine the selected path
    if ($dropdown.SelectedItem) {
        if ($clsids.ContainsKey($dropdown.SelectedItem)) {
            $selectedCLSID = $clsids[$dropdown.SelectedItem]
        } else {
            $selectedCLSID = $dropdown.SelectedItem
        }
    } else {
        $selectedCLSID = $customPathTextBox.Text
    }

    # Check if path is empty
    if ([string]::IsNullOrWhiteSpace($selectedCLSID)) {
        Show-ThemedDialog -message "Please Specify a Path" -title "Error" -isError $true
        return
    }

    # Attempt to resolve environmental variables in the path
    try {
        $resolvedPath = [System.Environment]::ExpandEnvironmentVariables($selectedCLSID)
    } catch {
        Show-ThemedDialog -message "Error resolving environment variables: $selectedCLSID" -title "Error" -isError $true
        return
    }

    # Validate the path
    $isValidPath = ($clsids.ContainsValue($resolvedPath)) -or
                   ((-not [string]::IsNullOrWhiteSpace($resolvedPath)) -and (Test-Path $resolvedPath)) -or
                   ($resolvedPath -like '::{*}') -and
                   ($resolvedPath -match ':') # Ensure the path contains a colon

    if (-not $isValidPath) {
        Show-ThemedDialog -message "Invalid Path Specified" -title "Error" -isError $true
        return
    }


    # Save the custom path to the history file if valid
    if ((-not [string]::IsNullOrWhiteSpace($customPathTextBox.Text)) -and
        ($customPathTextBox.Text -notlike '::{*}')) {
        try {
            Add-Content -Path $historyFile -Value $customPathTextBox.Text
        } catch {
            Show-ThemedDialog -message "Error saving history: $historyFile" -title "Error" -isError $true
            return
        }
    }

    try {
        # Launch the valid path through the Control Panel shell
        $shellApp = New-Object -ComObject Shell.Application
        $controlPanelWindow = $shellApp.Windows() | Where-Object {
            $_.Document.Folder.Self.Path -eq "::{26EE0668-A00A-44D7-9371-BEB064C98683}"
        }

        if (-not $controlPanelWindow) {
            $shellApp.Open("::{26EE0668-A00A-44D7-9371-BEB064C98683}")
            Start-Sleep -Milliseconds 800
            $controlPanelWindow = $shellApp.Windows() | Where-Object {
                $_.Document.Folder.Self.Path -eq "::{26EE0668-A00A-44D7-9371-BEB064C98683}"
            }
        }

        if ($controlPanelWindow) {
            $controlPanelWindow.Navigate($resolvedPath)

            # Get the monitor where the cursor is currently located
            $mousePosition = [System.Windows.Forms.Cursor]::Position
            $monitor = [System.Windows.Forms.Screen]::FromPoint($mousePosition)
            $monitorBounds = $monitor.Bounds

            # Determine the best dimensions
            if ($monitorBounds.Width -ge 1300 -and $monitorBounds.Height -ge 935) {
                $windowWidth = 1300
                $windowHeight = 935
            } else {
                $windowWidth = 1100
                $windowHeight = 635
            }

            # Calculate center position on the current monitor
            $centerX = $monitorBounds.X + [Math]::Floor(($monitorBounds.Width - $windowWidth) / 2)
            $centerY = $monitorBounds.Y + [Math]::Floor(($monitorBounds.Height - $windowHeight) / 2)

            # Apply dimensions and position to the Explorer window
            $controlPanelWindow.Width = $windowWidth
            $controlPanelWindow.Height = $windowHeight
            $controlPanelWindow.Left = $centerX
            $controlPanelWindow.Top = $centerY

            # Send the ESC key to close any active search or pop-ups
            [System.Windows.Forms.SendKeys]::Send("{ESC}")
            [System.Windows.Forms.SendKeys]::Send("{ESC}")
            [System.Windows.Forms.SendKeys]::Send("{ESC}")
        } else {
            Show-ThemedDialog -message "Failed to open Control Panel shell." -title "Error" -isError $true
        }
    } catch {
        Show-ThemedDialog -message "Error navigating to: $resolvedPath." -title "Error" -isError $true
    }

    $form.Close()
})

# Add the OK button to the form
$form.Controls.Add($okButton)

# Attach KeyDown event to the text box
$customPathTextBox.Add_KeyDown({
    if ($_.KeyCode -eq [System.Windows.Forms.Keys]::Return) {
        $okButton.PerformClick() # Simulate a click on the OK button
    }
})

# Add tooltip for OK button
$tooltip.SetToolTip($okButton, "Launch Selected Path")

# Show the form
$form.ShowDialog()